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01 0001 ; <PEFHiC >F4UB0T,SL0j 4 14~May-~S2 15:08:33, Edit by FRENCH 

01 0002 ;ADDE:D mem IMG BOOT OPTION 

01 0003 

01 0004 XLIST 

01 0007 LIST 

01 0008 

01 0009 1 WAITS = 1 

01 0010 

01 0011 17000 UBLOC = 17000 ; WHERE TO ASSEMBLE THIS STUFF FOR NOW 

01 0012 

01 0013 

01 0014 
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02 0042 








02 0043 








02 0044 








02 0045 








02 0046 


1 RCVERR 


^■^ 1 




02 0047 








02 004S 


17777 


TRHADR 


;s 


02 0049 








02 0050 








02 0051 








02 0052 








02 0053 








02 0054 








02 0055 


72 


UBOK ^ 


72 


02 0056 


73 


UEBAD = 


= 7 


02 0057 








02 0058 








02 0059 








02 0060 








02 0061 


3 HOHPAO 


=. 3 




02 0062 


4 XBPAG = 


-Q, 




02 0063 


5 DATPAG 


^ 5 




02 0064 








02 0065 








02 0066 









„ J 7777 



} TITLE: uBOOT FOR F4 

i AUTHOR: PHIL FRENCH@OFF ICE (TYMSHARE) 

; DISK AND TAPE MICROCODE BOOTER 

i DATA SWITCHES ARE READ AS FOLLOWS: 

i 

; <UHB >B0 !< UNUSED >B8 i < DC >B17 ! < FILN >B26 !< UNIT >B35 

WHERE DC IS DEVICE CODE: 

0; DISK 

1 : TAPE 
WHERE FILN IS FILE #: 

FOR DISK: FOR MICROCODE 

1 FOR MICRODIAG 

2 FOR MEM I MO 

FOR TAPE: # OF FILE (0 IS FIRST) TO BOOT 
WHERE UNIT IS: 

FOR DISK: PACK # 

FOR TAPE: MEANINGLESS NOW 
WHERE UHB IS: 

FOR DISK: FOR USE PRIMARY HOME BLOCK ON UCP 

1 FOR USE SECONDARY HOME BLOCK ON UCP 

FOR TAPE: MEANINGLESS FOR NOW 



i ASSEMBLY SWITCHES AND PARAMETERS 

; EXACTLY 1 TO ASSEMBLE ERROR RECOVERY ROUTINES 

/ADR WHICH WHEN SEEN INDICATES END OF FILE 

J CONTAINS XFER INSTRUCTION 

J LAST INSTRUCTION LOADED INTO UMEM 

i MICRO MEM USAGE 



i SUCCESS CODE FOUND IN AR 
;r-AILURE CODE FOUND IN AR 



;MAIN MEMORY USAGE 

J MAIN MEM PAGE TO READ HOME BLOCK 

;MAIN MEM PAGE TO READ XB 

;MAIN MEM PAGE TO READ FILE PAGE 



; PXR poR iLijB OP isY D^j^ gYT£ 



02 0067 








02 0068 


41000, 


, 5000 


BYTPTR = 4410000< 


02 0069 








02 0070 








02 0071 








02 0072 








02 0073 


51 


GBL~0T2 


== D%AMEM11 


02 0074 


52 


GBL-0T3 


= Dy.AHEM12 i 


02 0075 


53 


GBL-0T4 


== D7.AMEM13 


02 0076 


54 


OBL-UAD 


= DXAMEM14 i 


02 0077 


55 


OBL-BCT 


^ D%AMEM15 ; 


02 0078 


56 


OBL-BPT 


= DXAMEM16 ; 


02 0079 


57 


OLD-HMB" 


-FLO ^ D>;AMEM17 ; 


02 0079 








02 0080 








02 0081 









+ (DATPAG ^ 1000) 



i AMEM USAGE COMMON TO BOTH DISK AND TAPE OPERATION 

TEMP USED BY GT2BYT 
TEMP USED BY GT3BYT 
TEMP USED BY GT4BYT 

HOLDS MICRO MEM ADR FOR DEPOSITING 
HOLDS # BYTES LEFT BEFORE 10 NEEDED 
HOLDS BYTE PTR FOR EXTRACTING 8 BIT DATA BYTES 
Flag indicating an old-style MMB board in 
ma c h i n e . 
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03 


0082 


03 


00S3 


03 


0084 


03 


0085 


03 


0086 


03 


0087 


03 


0088 


03 


0089 


03 


0090 


03 


0091 


03 


0092 


03 


0093 


03 


0094 


03 


0095 


03 


0096 


03 


0097 


03 


0097 


03 


0098 


03 


0099 


03 


0100 


N ON 


03 


0100 


03 


oioi 


N ON 


03 


0101 


03 


0102 


03 


0103 


03 


0104 


03 


Oios 


03 


0106 


03 


0107 


03 


Oios 


03 


0109 


03 


0110 


03 


oni 


03 


0112 


03 


0113 


03 


0114 


03 


0114 


03 


0115 
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0116 


03 
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03 
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03 


0118 


03 


0119 


03 


0120 


03 


0121 


03 


0122 



40 
41 

44 

,1 C-. 

"f w' 

A I. 

4 / 



50 



DSK-DSP 
DSK-PT 

DSK~-LCM 

DSK~HDA 
DtJK-tiEM 
DBK-SDA 
DSK-RTY 



D7.AMEM0 
D%AHEM1 
D%AMEM2 

D%AMEM4 
D%AHEM5 

D'iAHEM6 
D%AMEM7 



DSK~AOB - l)%AMEHiO 



i STUFF IMPORTANT DURING DISK OPERATION 



jDISK AMEM usage (0:2 USED FOR DISK CONTROLLER OPERATION) 
i (4:7 USED IN THIS MODULE ONLY) 

HOLDS DISPATCH ADR FOR I NTS 

HOLDS PI ASSIGNMENT AND FLAGS 

HOLDS LAST COMMAND SENT TO CONTROLLER 

HOLDS HARDWARE DISK ADR 

HOLDS MEMORY ADR FOR DISK READS 

HOLDS SOFT DISK ADR 

< FLAGS >B1 !< RETRY COUNTER >B5 !< TIMEOUT COUNTER >B35 

i FLAGS: BO: FOR NORMAL DISK OPERATION 

i 1 FOR RECALLING 

i Bl: TO JUMP TO RDSKEO ERROR RT 



ERROR 



ERROR 
HOLDS AOBJN PTR FOR SCAN OF XB 



1 TO JUMP TO RDSKEl ERROR RT 



1 HHiSRF ~= 1 
HM2SRF ~ 

3 HMNSEC ^- 3 



5 H0MHW2 ~ 5 

6 H0MHW3 ^-^ 6 

12 



14 



HOMMDA 



HOMMCA 



HOM I NA 



;SEE GLOBAL AMEM DEFS FOR AMEM > iO 

; INTERESTING HOMEBLOCK PARAMETERS FOR DISK OPERATION 

SURF OF PRIMARY HOME BLOCK 
SURF OF SECONDARY HOME BLOCK 

SECTOR OF HOME BLOCKS 

INDEX FOR < NSECS, , NWSEC > 

INDEX FOR < NTKUN-J?-NSURFS*NSECS >, , < NSURFS*NSECS ) 

J INDEX FOR HARDWARE DISK ADR OF ALTERNATE FILE XB 

i Filename is MICRODIAG. PACK-Oi 1 

i INDEX FOR HARDWARE DISK ADR OF MICROCODE FILE XB 

; Filename is MICROCODE. PACK-Oi 1 
i INDEX FOR HARDWARE DISK ADR OF MEMIMG FILE XB 

i Filename is MEMIMG. PACK~Oi 1 
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04 0123 

04 0124 

04 0121> i STUFF IMPORTANT DURING TAPE OPERATION 

04 0126 

04 0127 ; AMEM USEAGE: 

04 0128 

04 0129 40 TAP-DSP = D%AHEMG i DISPATCH ADDR- 

04 0130 40 TAP-DPM ^ D%AMEMO ; DATA PACKING MODE 

04 0131 i BIT 0: 0=PDP-10 CORE-DUMP, 1=INDUSTRY 

(32-bit 

04 0131 mode) 

04 0132 ; BIT 1: NRZI Kluge Mode (to rd old CCRM 

A & SCI. 

04 0132 tapes) 

04 0133 41 TAP-TIM == D%AMEM1 ; Timeout values for NCNTWT and FMNBWT. 

04 0134 42 TAP-LWT = D%AMEM2 ;Copy of last writ to TP.WC, 

04 0135 i Status at ENDX of tape operation. 

04 0136 43 TAP-XXX = D7.AMEM3 ; DON'T USE... Storing into it clobbers IR left ! 

04 0136 

04 0137 44 TAP~MEM ~ D%AMEM4 jNext mem adr of 

xfer (STRTDC) — during 
04 0137 non-data ops 

04 0138 45 TAP-CNT = D%AMEM5 i Remaining word count in current WCMA (STRTDC) 
04 0139 46 TAP-FLN = D%AMEM6 ;# OF FILES TO SKIP (IE FILE # TO READ) 
04 0140 47 TAP-STA -" D%AMEM7 i Interrupt state and transfer flags: 
04 0141 ; IbO = read* Ibl = waiting for formatter 

to 
04 0141 become idle 

04 0142 i lb2 = mtop interrupt (set with read) 

04 0143 i 18-35 CONI bits: 

04 0144 ; 7b35 = pi assignment. 10 = interrupt fl 

ag. 

04 0145 i 10 USED AS BOOT FLAG WHILE BOOTING 

04 0146 J 01 USED AS "EOF" FLAG WHILE BOOTING 

04 0147 

04 0148 iSEE GLOBAL AMEM DEFS FOR AMEM > 7 DEFINITIONS AS WELL... 

04 0149 
04 0150 

04 0151 i MAPF values 

04 0152 

04 0153 4 TP„RS •= 4 i read status (from formatter) 

04 0154 2 TP»RC ~ 2 ; read control (controller status and un-fifo'd read data) 
04 0154 
04 0155 

04 0156 2 TP=WF -~ 2 ; write formatter (send Ctrl bits to formatter) 
04 0157 4 TP.WM == 4 : write mode control reg. 
04 0158 1 TP„WC = 1 .; writs control reg. 
04 0159 5 TP.MR = 5 igive Master Reset 

04 0160 3 TP, WMA ~ 3 i writ 6? (load) the CNTMA reg. (count and MA) 
04 0161 
04 0162 
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05 0163 
05 0164 
05 0165 
05 0166 
05m0167 
05 0167 
05 0168 
05 0169 
05 0170 
05 0171 
LONG * 
05 0172 

05 0173 
05 0174 
05 0175 
05 0176 
05 0177 
05 0178 
05 0179 
05 0180 
05 0181 
05 0182 
05 0183 
05 0184 
05 0185 
05 0186 
05 0187 
05 0188 
05 0189 
05 0190 
05 0191 
05 0192 
05 0193 
05 0194 
05 0195 
05 0196 
05 0197 
05 0198 
05 0199 
05 0200 
05 0201 
05 0202 
05 0203 
05 0204 
05 0205 
05 0206 
05 0207 
05 0208 
05 0209 

Y X 



i ENTRY FOR UCODE BOOTER 

.useCUBL0C3 t xlist 



1 ist II 



17000 010731 1700400000141616202541 1456000 

17001 010731 1700003600341616202541 1456000 

1 7002 1 0730 1 70000000344423623670 1141 6000 



1 7003 1 066 1 0020000000 1 400 1 6202 555 1 456000 

1 7004 1 066 1 0020000000 1 40036202555 1 456000 

17005 010731 1700000000141616202541 1456000 



1 7006 1 073 1 1 700400605540 i 64636555 141 7000 

17007 0107313700000003541616236701 1416000 

17010 01073117000006054036136365411416000 

17011 01 073 1 1 7000000034036 1 363670 1141 6000 

17012 01073117100000000000100365511416000 

17013 01024117000006055416116365411416000 

17014 01073017000000034662362367011416000 

17015 01023117000000001416114025411456000 



UBOOTA: CLR-DEV-FROM-INTR JUMPCUBTAn * 

HALTED: JUMP C. 3 * i Hang here when done. 

UBTAl: DCAMEM-ABS APR-DAT ASW3 R0TC18. 3 MASK C 9. 3 DESTCQ3 

iGET DEVICE CODE IN Q, CLEAR DEV FROM IN 

DCCONST 03 ALUCD#Q3 C0NDCZER03 JUMPCUB00TD3 LONG * 

;DISK 
DCCONST 13 ALUCD#Q3 CDNDi:ZER03 JUMPCUB00TT3 LONG * 

;TAPE 
JUMPCXUB00T3 LONG * 

i LOSER 



iTAPE OPERATION 

UBOOTT: DCCONST 73 DESTCDEV-ADR3 LONG $ 

iDEV-AI>R IS TAPE FROM NOW ON 
DCAMEM-ABS APR-DAT ASW3 DESTCAR3 LONG * 

iGET AROUr© AMEM-ABS AND JADR CONFLICT VIA AR 
DCAR3 R0TC13 DESTC0LD-MMB-FLG3 LONG $ 

DCAMEM-ABS APR-DATASW3 ROTC13 DESTC0LD-MMfi-FLG3 LONG * 
DCNLIT 4000000000003 DESTCTAP-DPM3 LONG * 

iSET 32 BIT PACKING MODE 
ALUC03 DESTCTAP~STA3 LONG * 

', CLEAR FLAGS 
DCAMEM-ABS APR-DATASW3 R0TC27. 3 MASKC9. 3 DESTCQ3 LONG * 
ALUCQ3 DESTCTAP-FLN3 JUMPCUMERGE3 LONG * 

iPUT FILE # IN AMEM6 AND MERGE 



; DISK OPERATION 
.REPEAT 1 - WAITS C 

UBOOTD: DCCONST 103 DESTCDEV-ADR3 LONG $ 

; DEV-ADR IS DISK FROM NOW ON 
DCCONST HM1SRF3 R0TC8. 3 DESTCQ3 LONG * 

i ASSUME PRIMARY HOMEBLOCK, GET MORE STACK 
DCAMEM-ABS APR-DATASW3 DESTCAR3 LONG * 

;OET AROUND AMEM-ABS AND JADR CONFLICT VIA AR 
DCAR3 RaTC13 DESTC0LD-MMB-FLG3 LONG * 
DCAR3 C0NDCSIGN0FF3 JUMPCPRIMHB3 LONG * 

} IBO IN SWITCHES MEANS SECONDARY, JUMP IF PRIMAR 



05 


0211 


05 


0212 


05 


0213 


05 


0214 


05 


0215 


05 


0216 


05 


0217 


05 


0218 


05 


0219 


05 


0220 


HOME 


05 


0220 


05 


0221 


05 


0222 


05 


0223 


05 


0224 


05 


0225 


05 


0226 


05 


0227 


05 


0228 


05 


0229 


05 


0230 


05 


0231 


05 


0232 


05 


0233 


05 


0234 


05 


0235 


05 


0236 


05 


0237 


05 


0238 


05 


0239 


05 


0240 


05 


0241 


05 


0242 


05 


0243 


05 

) 

05 


0244 


0245 


05 


0246 


05 


0247 


05 


0248 


05 


0249 


05 


0250 


05 


0251 


05 


0252 


ORE 


)S IN 


05 


0252 


05 


0253 


05 


0254 


05 


0255 


05 


0256 


05 


0257 



PRIMHB 



BLOCK 



UCODE: 



UDIAO: 



U I MAGE: 



UDFILE: 



XB 



DCCONST HM2SRF3 R0TC8. 3 DESTCQ3 LONG * 

; WANTS SECONDARY 
DCAMEM-ABS APR-DATASW3 MASKC9. 3 DESTCAR3 LONG * 

J GET XB PACK IN AR 
DCAR3 R0TC29. 3 ALUCD0RQ3 DESTCQ3 * 

i POSITION PACK AND SRF TOGETHER 
DCCONST HMNSEC3 ALUCD0RQ3 DESTCDSK~HDA3 LONG * 

; INCLUDE SECTOR, PUT DA IN DSK-HDA 
DCCONST H0MPAG3 R0TC9. 3 DESTCDSK-MEM3 PUSHJCRDSK3 LONG * 

iPUT MEM START ADR IN DSK-MEM AND DO THE READ OF 



DCAMEM~ABS APR~DATASW3 R0TC27. 3 MASKC9. 3 DESTCQ3 LONG * 

i GET FILE # IN Q 
DCCONST 03 ALUCD#Q3 C0NDCZER03 JUMPCUC0DE3 LONG * 

i MICROCODE. ETC 
DCCONST 13 ALUCD#Q3 C0NDCZER03 JUMPCUDIAG3 LONG * 

iMICRODIAG.ETC 
DCCONST 23 ALUCD#Q3 C0NDCZER03 JUMPCUIMAGE3 LONG * 

iMEMIMG. ETC 
JUMPCXUB00T3 LONG * 

i LOSER 

DCCONST H0MMCA3 DESTCQ3 JUMPCUDFILE3 LONG * 
; MICROCODE FILE HB INDEX 

DCCONST H0MMDA3 DESTCQ3 JUMPCUDFILE3 LONG * 
iMICRODIAG FILE HB INDEX 

DCCONST H0MINA3 DESTCQ3 JUMPCUDFILE3 LONG * 
iMICRODIAG FILE HB INDEX 

DCCONST H0MPAG3 R0TC9. 3 ALUCD+Q3 DESTCMA3 LONG $ 

; LOAD MA WITH LOC OF XB HDWR ADR 
DF/WT DCMEM3 MASKC29. 3 DESTCQ3 LONG $ 

i CONSIDER IT PACK RELATIVE ONLY (MASK OFF PACK # 

DCAMEM-ABS APR~DATASW3 MASKC9. 3 DESTCAR3 LONG * 

;GET PACK # FOR XB (SAME AS HOME BLOCK) 
DCAR3 R0TC29. 3 ALUCD0RQ3 DESTCDSK-HDA3 LONG * 

iPUT DA IN DSK-HDA 
DCCONST XBPAG3 R0TC9. 3 DESTCDSK~MEM3 PUSHJCRDSK3 LONG $ 

i PUT MEM START IN DSK-MEM AND READ XB TO IT 
DCNLIT 7770000000003 DESTCDSK~A0B3 LONG * 

J LOAD DSK-AOB WITH -1000, , FOR LOOP OVER 1000 W 



DCAMEM-ABS APR-DATASW3 R0TC27. 3 MASKC9. 3 DESTCQ3 LONG % 

iQET FILE # IN (3 
DCCONST 23 ALUCD#Q3 C0NDC-ZER03 JUMPCUMERGE3 C550 * 

; JUMP IF NOT DOING MAIN MEMORY IMAGE BOOT 



05 0259 



iHERE WHEN WANT TO BOOT MAIN MEMORY IMAGE OFF DISK 



^^ ^26C ; START FILLING HEMORY AT DATPAG 

^^^261 ; TERMINATE WHEN SEE NON EXISTANT PAGE OR DID 512 - DATPAG PAGES 

^^^262 ;AOBJN PTR FOR KB ALREADY SETUP FOR 512 PAGES, MUST ADJUST 

05 0263 

®^ 026^ DCDSK~A0B3 DESTCQ] LONG * 

^^ ^^^^ iGET -1000, ,0 INITIAL AOBJN PTR IN Q 

^^ ^^^^ DCCONST DATPAG3 ROTCIB. 3 ALUCD+Q3 DEST C DSK-AOB 3 LONG * 

X^ XotI ; ADJUST FOR RELOCATION OF FILE PAGES IN MEMORY 

^^ ^^-^ IMGLUP: DCDSK-A0B3 CONDC -NEGATIVE 3 JUMPCIMGDUN3 LONG * 
05 0269 . jp p^Qg; COUNTER AOBJN WENT POSITIVEi RAN OUT OF 

PAGES 

^^ 0270 DCDSK-A0B3 MASKC18. 3 DESTCQ3 LONG * 

^■^ 0271 .Q^j p^QE # IN Q 

OS 0272 DCCONST XBPAG3 R0TC9. 3 ALUI:D+Q3 DESTCMA3 LONG * 

05 027J iLOAD MA WITH ADR OF XB WORD CONTAINING NEXT DIS 

K Ai)H 

0^ 0274 DF/WT DCMEM3 DESTCQ3 C0NDCZER03 JUMPCIMGDUN3 LONG * 
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05 


0275 


05 


0276 


05 


0277 


05 


0278 


05 


0279 ■ 


05 


0280 


05 


0281 


Kj 


LONO $ 


05 


0281 


05 


0282 


05 


0283 


G 




05 


0284 


05 


0285 


05 


0286 


05 


0287 


05 


0288 


05 


0289 


05 


0290 


05 


0291 


05 


0291 


05 


0292 


05 


0293 1 


05 


0294 


05 


0295 1 


05 


0296 


05 


0297 


05 


0298 



17016 01073137000006055416562365551416000 

17017 01073117000036003416162025411456000 



J GET SOFT ADR IN DSK-SDA BUT JUMP IF IT IS ZERO 
ALUCQ3 DESTCDSK-SDA3 PUSHJCCVDSK3 LONG * 

J CONVERT TO HARD DA IN DSK-HDA 
DCDSK--A0B3 R0TC9. 3 DESTCQ3 LONG * 

; GET PAGE ADR OF FILE WE ARE READING 
DCMASK 9. 1 R0TC9- 3 ALUCD&Q3 DESTCQ3 NORM * 
DCCONST DATPAG3 R0TC9. 3 ALUI:D+Q3 DESTCDSK-MEM3 PUSHJCRDS 



; RELOCATE THAT PAGE VIA BASE ADR 

i DSK-HDA SETUP, DSK-MEM GET MEM ADR, READ DATA P 

DE:DSK~A0B3 DESTCQ3 LONG $ 

i GET AOBJN PTR IN Q 
DC1,,13 ALUCD+Q3 DEST C DSK-AOB 3 JUMPCIMGLUP3 LONG $ 

; UPDATE AOBJN PTR AND LUP 

li .REPEAT 1 - WAITS 

J HERE IF RAN OUT OF PAGES OR SAW NON-EX 1ST ANT PAGE (TERMINATING 
CONDITIONS) 

IMODUN: DCCONST UB0K3 DESTCAR3 LONG * 

i SUCCESS CODE 
JUMP C HALTED 3 LONG * 

J MAY NOT BE ANYTHING THERE?? 
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06 0299 
06 0300 
06 0301 
06 0302 
06 0303 
06 0304 
06 0305 
06 0306 
06 0307 
06 0308 

06 0309 17020 01073117000000001416162225411456000 
06 0310 

06 0311 17021 01073U700000605440413036541 1416000 
06 0312 

06 0313 17022 01073117000000001416162225411456000 
06 03 1 4 

06 0315 17023 01073117000206054016004366611417000 
06 0316 

06 03 1 7 1 7024 1 0731 1 70000060554 1 6 1 763654 1141 6000 
06 03 IS 
cycle ! 



i MERGE POINT FOR DISK AND TAPE MICROCODE BOOTS 

i RESPECTIVE AMEMS ETC SET UP 

UMEROE: 

.REPEAT 1 ~ WAITS C 

ALUC03 DESTCGBL~BCT3 LONG $ 

; INIT TO NO BYTES LEFT BEFORE 10 NEEDED 
3; .REPEAT 1 - WAITS 
ULOADL; PUSHJCQET2BY3 LONG * 

;GET 2 BYTES (ADR) LEFT JUSTIFIED IN AR 
DCAR3 R0TC16. 3 MASKC16. 3 DESTI:GBL-UAD3 LONG * 

J SAVE RIGHT JUSTIFIED 16 BIT ADR FOR LATER 
PUSHJE:GET4BY3 LONG $ 

;Get 4 bytes (00:31) left justified in AR 
DCGBL-UAD3 R0TCMUA--R0T3 DESTCJMEM3 MU-PUSH LONG * 

iLeft justified adr on stack 
DESTI[MH-PRE-WRT3 $ 

; Get the MM write started — it will happen NEXT 



06 0318 

06 0319 17025 0107310421040605541/5000425411416000 

DlAR3 DESTlMM-Aj SPEClHM-ACCESSJ C0NDl-MM~ACC~C0ND3 

06 0320 

TACK 

06 0321 

06 0322 17026 01073117000000001416162225411456000 

06 0323 

06 0324 17027 01073017000006054336162366751416000 
06 0325 

06 0326 17030 01064100000000001416162226611456000 

06 0327 17031 01073117000206054016004366611417000 
06 0328 

06 0329 17032 01073117000006055416176365411416000 
06 0330 
cycle ) 



POP J LONG $ 



; DEPOSIT BITS 00:31 FROM ARC00:3i3 VIA JADR ON S 

;POPJ NEVER GETS A CHANCE 
PUSHJCGET4BY3 LONG * 

;GET 4 BYTES (32:63) LEFT JUSTIFIED IN AR 
Di:0LD~MMB~FLG3 R0TC13. 3 DESTCQ3 * 

i See if we need to permute fields- 
DCGBL-UAD3 ALUCD&Q3 C550 C0NDC~ZER03 PUSHJC0LD~MMB-FIX3 

DCGBL~UAD3 R0TCMUA-R0T3 DESTCJMEM3 MU-PUSH LONG * 

; LEFT JUSTIFIED ADR ON STACK 
DESTEMM-PRE~WRT3 * 

;0et the MM write started — it will happen NEXT 



06 0330 

06 0331 17033 01073104220406055416000425411416000 

DCAR3 DESTCMM--B3 SPECCMH-ACCESS3 C0NDl--MM-ACC-C0ND3 

06 0332 

06 0333 

06 0334 17034 01073117000000001416162225411456000 
06 0335 

06 0336 17035 01073117000206054016004366611417000 
06 0337 

06 0338 17036 01073117000006055416176365411416000 
06 0339 
cycle • 



POPJ LONG * 



i DEPOSIT BITS 32:63 FROM AR[:00:313 VIA JADR 

iPOPJ NEVER GETS A CHANCE 
PUSHJCQET3BY3 LONG $ 

;GET 3 BYTES (64:87) LEFT JUSTIFIED IN AR 
DCGBL-UAD3 R0TCMUA-R0T3 DESTCJMEM3 MU-PUSH LONG * 

;LEFT JUSTIFIED ADR ON STACK 

dest[:mm~pre--wrt3 * 

J Get the MM write started — it will happen NEXT 



06 0339 

06 0340 17037 

DLAR3 DESTCMM- 

06 0341 

06 0342 

06 0343 i7040 

06 0344 

06 0345 17041 

06 0346 

06 0347 17042 

06 0348 

TINUE 

06 0349 17043 

06 0350 

06 0351 17044 

06 0352 

06 0353 

06 0354 

06 0355 17045 

06 0356 

06 0357 17046 

06 0358 

06 0359 17047 

06 0360 

06 0361 17050 

06 0362 17051 

06 0363 

06 0364 17052 

06 0365 

06 0366 1 /053 

06 0368 17054 
06 0368 17055 
06 0369 
06 0370 
06 0371 
06 0372 



1 073 1 042304060554 1 60004254 1141 6000 

'CI SPECCMM-ACCE3S3 CONDC-MM-ACC-COND] POP J LONG $ 



010731 17000000001,41616222541 1456000 
1 0730 1 70000000037777623655 1 1 4 1 6000 
01066100000036041416162026611456000 

01073137000006055416562365551416000 

1 073 1 1 70000000000 1 60007266 1 1 456000 



01073017000006055416162365411416000 
1 0650 1 7000006054 1 465623647 1141 6000 

010731 1700000605444355036541 1416000 

1 0630 1 7000006054 1 56 1 6236545 1 5 1 6000 
01073117000006054743150365411416000 

01063137000006054516162425451516000 

01073137002106055416762365551416000 

01073117001706055416162365411416000 
01073117000036003416162025411456000 



^DEPOSIT BITS 64:87 FROM ARC00:233 VIA JADR 

i POP J NEVER GETS A CHANCE 
PUSHJCGET2BY3 LONG * 

; THROW AWAY GHOST BYTES 
DCLIT TRMADR3 DESTCQ3 LONG * 

;0ET TRMADR IN Q 
DCGBL-UAD3 ALUCD#Q3 C0NDC-ZER03 JUMPCUL0ADL3 LONG * 

; IF ADR JUST LOADED , NE. TRMADR THEN JUMP TO CON 

DCCONST UB0K3 DESTI:AR3 LONG $ 

i SUCCESS CODE 
DCGBL-UAD3 R0TCMUA~R0T3 ODISP LONG * 

; JUMP TO IT (XFER INSTRUCTION) 



OLD-MMB-FIX: 

DCAR3 DESTCQ3 * 

i Prepare to permute fields- 
DCMASK 26. 3 R0TC35. - 29. 3 ALUC--D8«Q3 DESTCQ3 * 

i Clear space for JADRi ROTi and MASK fields. 
DCARj R0TC17. + 13 MASKC14. 3 DESTCH0LD3 $ 

i Put JADR in new place, 
DCMEMl ROTCSS. - 29. 3 ALUCD0RQ3 DESTEQ3 $ 
DCAR3 R0TC29. + 13 MASKC12. 3 DESTI[H0LD3 * 

J Put ROT and MASK in place. 
DCMEM3 R0TC35. - 15.3 ALUCD0RQ3 DESTCAR3 POPJ * 

XUBOOT: DCCONST UBBAD3 DESTCAR3 SPECCMHS-DISABLE3 * 
i Failure code... turn off Macro History. 
SPECnUHS-DISABLE3 *JUMPCHALTED3 LONG $ 

J Turn off Micro History* hang in magic spot. 



SLOE 



A ij ij 



IS,' 



Vtift. 



■File DSK: F4UBuT, NEM 



Of — XBOOT 



07 0374 

07 0375 

07 0376 

07 0377 

07 0378 17056 01073117000000001416162225411456000 

07 0379 

07 0380 17057 01073137000006054716162425411416000 

07 0381 

07 0382 

07 0383 

07 0384 

07 0385 17060 01073117000036135416162225411456000 
07 0386 

07 0387 17061 01073117000006055416122365411416000 

07 0388 

07 0389 17062 1073 U 700003613541 61622254 11456000 

u/ u39u 

07 0391 17063 01073017000006054716162365411416000 

07 0392 

07 0393 17064 01063137000006055416162366451416000 

07 0394 

07 0395 17065 01073117000006055416162425411416000 

07 0396 

07 0397 

07 C'39S 

07 0399 

07 0400 17066 01073117000036141416162225411456000 

0/ 0401 

07 0402 1/U6/ 01 0731 1 700000to055416i2436541 1416000 

07 0403 

07 0404 17070 01073117000036135416162225411456000 

07 0405 

07 0406 17071 01073017000006054516162365411416000 

ij / U4U'' 

07 0408 17072 01063137000006055416162366511416000 
07 0409 

07 0410 17073 01073117000006055416162425411416000 

07 041 1 

07 0412 

07 0413 

07 0414 17074 01073117000036141416162225411456000 

07 0415 

07 0416 17075 01073117000006055416126365411416000 

07 0417 

07 0418 17076 01073117000036141416162225411456000 

07 0419 

07 0420 17077 01073017000006054516162365411416000 

07 0421 

07 0422 17100 01063137000006055416162366551416000 

07 0423 

07 0424 17101 01073117000006055416162425411416000 

07 0425 



;OET 1 BYTE LEFT JUSTIFIED IN AR 

OETIBY: PUSHJCILDB3 LONG * 

J GET RIGHT JUST I FED 
DCAR3 R0TC36. -• 8.3 DESTCARJ POPJ LONG * 
I LEFT JUSTIFY IT AND RETURN 

i GET 2 BYTES LEFT JUSTIFIED IN AR 

GET2BY: PUSHJCGETiBY3 LONG * 

;GET 1ST LEFT JUSTIFIED IN AR 
DEAR 3 DESTCGBL"-GT23 LONG * 

i SAME 1ST IN TEHP 
PUSHJCGET1BY3 LONG * 

;GET 2ND LEFT JUSTIFIED IN AR 
DCAR3 R0TC36. - 8.3 DESTCQ3 LONG * 

; POSITION 2ND IN Q 
DCGBL-GT23 ALUCD0RQ3 DESTCAR3 LONG $ 

; lOR 1ST AND 2ND INTO AR 
POPJ LONG $ 

; RETURN 

iGET 3 BYTES LEFT JUSTIFIED IN AR 

GET3BY: PUSHJCGET2BY3 LONG * 

; GET 1ST 2 LEFT JUSTIFIED IN AR 
DCAR3 DESTCGBL-GT33 LONG $ 

i SAVE 1ST 2 IN TEMP 
PUSHJCGET1BY3 LONG * 

;GET 3RD LEFT JUSTIFIED IN AR 
DCAR3 R0TC36. - 16.3 DESTCQ3 LONG * 

.POSITION 3RD IN Q 
DE:GBL~GT33 ALUCD0RQ3 DESTEAR3 LONG * 

i lOR 1ST 2 AND 3RD INTO AR 
POPJ LONG * 

;OET 4 BYTES LEFT JUSTIFIED IN AR 

GET4BY: PUSHJCGET2BY3 LONG $ 

iGET 1ST 2 LEFT JUSTIFIED IN AR 
DCAR3 DESTCGBL--GT43 LONG $ 

;SAVE 1ST 2 IN TEMP 
PUSHJCGET2BY3 LONG $ 

iGET 2ND 2 LEFT JUSTIFIED IN AR 
DCAR3 R0TC36. - 16.3 DESTCQ3 LONG * 

i POSITION 2ND 2 IN Q 
DCGBL-GT43 ALUCD0RQ3 DESTCAR3 LONG * 

i lOR 1ST 2 AND 2ND 2 INTO AR 
POPJ LONG * 



/ U*t2to 



SLOE 



Aug 18, 1986 18:07:51 file DSK: F4UB0T. NEW — of 



XBOOT 



08 042/ 
08 0428 
08 0429 

08 0430 

08 0432 

08 0432 

08 0433 

08 0434 1/102 01072000400000001416162026651456000 

LONG * 

08 0435 

OS 0436 17103 01023117000006055416132365411416000 

08 0437 

08 0438 17104 01073037000006055416162366711416000 

08 0439 

08 0440 17105 01073137000000000301450225411457000 

08 0441 

08 0442 17106 71073137000006055416162366711416000 

08 0443 

08 0444 17107 0107301 70000060554 U 162365551416000 

08 0445 

OS 0446 1/llU 01 1 61 1 1 7000006054141 44436541 121 7000 

08 0447 

08 0448 17111 01073137000006055212162425451516000 

08 0449 

08 0450 

08 0451 

OS 0452 

OS 0453 

08 0454 

OS 0455 17112 01161103000006054756134425411416000 

NO * 

OS 0456 

for 

OS 0456 

08 0457 1 7 1 1 3 1 0640 1 7000006055407 5623647 1141 6000 

08 0458 

08 0459 17114 01160017000036224751162025551456000 

08 0460 

08 0461 

08 0462 

08 0463 

08 0464 17115 01073017000000034442362367011416000 

08 0465 

08 0466 17116 01066100200000001400162025551456000 

08 0467 

08 0468 17117 01073117000000001416162225411456000 

08 0469 

08 0470 17120 01073117000000001416162025411456000 

08 0471 

OS 0472 

OS 047*3 

08 0474 



; ACCEPTS PTR IN QBL-BPT. 

J ACCEPTS # BYTES LEFT IN GBL-BCT. 

i IF NO BYTES LEFT, DO 10 AND THEN GET BYTE. 

; ALWAYS RETURNS WITH DESIRED BYTE UNLESS ERROR. 

ILDB: DC0BL-BCT3 ALUCD-n DESTCQ3 CONDC NEGATIVE 3 JUMPCNEEDI03 

; DEC BYTES LEFT, JUMP TO DO 10 IF NECESSARY 
ALUCQl DESTCGBL~BCT3 LONG * 

; UPDATE AMEM 
DCGBL-BPTl DESTCQ AR3 LONG * 

i SETUP FROM PTR 
DCARD R0TE12. 3 MASKC6, 3 DESTCAR MASKR3 PUSHJCIBP3 LONG % 

i Get S field and call common code 
DnGBL-BPT3 DESTCAR MA 3 LONG $ 

i AR GETS NEW PTR, MA GETS ADR OF DATA 
DCCONST 36. 3 DESTCQ3 LONG * 

; Q GET 36. 
DFRQ DCAR3 R0TC6. 3 MASKC6. 3 ALUCQ-D3 DESTCR0TR3 LONG * 

; 36. -P to ROTR, fetch data 
DCMEM3 R0TCR3 MASKCR3 DESTCAR3 POPJ LONG * 
; Get and store byte IN AR, RETURN 

; ACCEPTS PTR IN Q 

iS IN AR 

i INCREMENTS AND STORES IN GBL-BPT 

IBP: DCAR3 R0TC30. 3 ALUCQ-D3 DESTCGBL-BPT3 C0NDi:CRY03 POPJ LO 

iSubtract from P (in place) and store, checking 

overflow 

DCMASK 30. 3 ALUCD&Q3 DESTCQ3 LONG * 

; ptr will overflow, fix it up 
DCCONST 443 R0TC30. 3 ALUCD+Q+13 DESTCQ3 JUMPCIBP3 LONG * 

; New P of 44, add 1 to adr 



NEEDIO: DCAMEM-ABS APR-DAT ASW3 R0TC18. 3 MASK C 9. 3 DESTCQ3 LONG * 

;GET ALREADY CHECKED DEVICE CODE IN Q. 
DCCONST 03 ALUCD#Q3 C0NDCZER03 JUMPCI0DSK3 LONG * 
; JUMP FOR DISK 
lOTAP: PUSHJCTAPI03 LONG * 

■> SUCK IN NEXT RECORD, SETUP GBL-BCT 
JUMPCI0B0TH3 LONG * 

; SETUP PTR AND CONTINUE 

lODSK: 

.REPEAT 1 " WAITS I 



08 0475 

OS 0476 

08 0477 

08 0478 

08 0479 

t no 

OS 0479 

08m0480 

08m0480 17121 01073117000036127416162025411456000 

t no 

08m04e0 

08 0480 

08 0481 17122 01073117110200001200134365511416000 

08 0482 

08 0483 17123 01073117000036205416162025411456000 

08 0484 

08 0485 



PUSHJCDSKI03 LONG * 

; SUCK IN NEXT PAGE, SETUP GBL-BCT 
li .REPEAT 1 - WAITS 
.REPEAT WAITS C 

JUMPCXUB00T3 $ i That's all there is, there ain' 



more ! 

3; E 



more 



JUMPi:XUB00T3 * 



/That's all there is/ there ain' 



3. REPEAT 

lOBOTH: DCNLIT BYTPTR3 DESTCGBL-BPT3 LONG * 

} mil BYTE PTR FOR ILDB OF OTH BYTE OF DATA PAGE 
JUMPCILDB3 LONG * 

; DO ILDB AGAIN 



SLOE 



AuQ IS. 1986 IB; 0" 



file DSK : F4UB0T, NEW 



of — XBOOT 



09 0486 
09 0487 
09 0488 
09 0489 
09 0490 
09m0491 
09m0491 
09m049i 



PROH =^ 1 



.REPEAT WAITS C 
PROM = 1 
.INSERT DSKBT. NEWCl, 1113 

.INSERT DSKBT.NEWCl, 1113 



SLOE 



Bug 



IB, i9b6 ib.07;52 Piie DSK; DSKBT. NEWC 1 , i 113 — of' — XBOOT 



OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
1 mOOO 1 
OlmOOOi 
OlmOOOl 
OlmOOOi 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
1 mOOO 1 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOl 
OlmOOOi 
OlmOOOl 
OlmOOOl 
OlmOOOl 
01 0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
00 1 4 



01 
01 
01 
01 
01 
01 
01 

W i 

01 
01 
01 

01 
01 
01 



00000700000000000000000000000000000 



000000000000000000000000000360 1 6400 
000000000000000000000000000 1 00 1 6000 



* -i W 



1 F4PR0H =^ PROM * F4SW 

10 DSKUDEV ^ 10 

2 APR-SW - 2 
4 APR-ASW - 4 



4 DSK-RD-CHD = 4 

4 DSK-LD CMD = 4 

5 DSK-LD-MA - 5 

CD LJ is r\ ~" L. U ""' kJ f\ *'- w 



DSKBT-BEO: 

, REPEAT 1 + (DSKBT-BEG > 0) C 



.INSERT SWINIT.SLOCl, 1143 

.REPEAT 1 - F4SW C 

NEWMAP = 1 

XUCODE = I 

. INSERT CFDEF.SLO ; 

PROM == 

LLOAD-ROT = 

: 17400 

3; .REPEAT 1 - F4SW 

.REPEAT F4SW C 

.INSERT F410N. SLOCl, 1143 

. INSERT F4DEF.SL0C1, 1143 

PROM = 

ubloc == 17000 

: 16400 



get machine definition 



3i .REPEAT F4SW 

3;. REPEAT 1 + (DSKBT-BEO > 0) 

.REPEAT F4SW C 
modify-field alu-dst 
0_AC = 2 

modify-f ield CYLEN 

FIXM = no-cdc cyO 

3; C 

modify-field alu-dst 
0_AC ^ 2 

modify-field CYLEN 

FIXM = no-cdc cyO 

3. REPEAT F4SW 
LIST 



4i 12 



i 350 



4i 12 



i 350 



» Micro-device for DSK 
jSubselect for data switches 
;Subsel8ct for address switches 

; MAPF for disk 
; Read command and status 
i Load command 
; Load memory address 
^ Load disk address 



1 00 1 6 
01 0017 
01 0018 
01 0019 
01 0020 
01 0021 
01 0022 
01 0023 
01 0024 
01 0025 
01 0026 
01 0027 
01 0028 
01 0029 
01 0030 
01m0031 
01m0031 
01 0031 
1 0032 
1 0033 
01 0034 
01 0035 
01 0036 
01 0037 
01 0038 
01 0039 
01 0040 
ddress 
01 0041 
01 0042 
ddress 

Ul KJUH^^ 

01 0044 
01 0045 
01 0046 
01 0047 
01 0048 
01 0049 
01 0050 
01 0051 
01 0052 
01 0053 
oot 

01 0054 
01 0055 
oot 

01 0056 
01 0057 
01 0058 
01 0059 
01 0060 
01 0061 

01 0063 



7 DSK-LD-ECC ™ 7 



1 DSK-'On = 

2 DSK-INIT 



2 



10 NSECTORB = 8 

3 L0G2NSeC -^ 3 

23 NHEADS --= 19, 

7 BOOT-DRIvE ^ 7 
1 c d c 1 60 k 1 u d g e ~ 1 



41000. , 74 BVTPTR ~ 441000000074 



J Load special function (INIT. GO) 

i Commands for LD-ECC 
; Command to start a command 
? Command to initialize disk 

/Number of sectors/surface 
i Log 2 of NSFiCTORS 

» Number of heads/cylinder 

/Unit number of drive to boot from 
i -^-s-* Hack disk address 



.REPEAT F4PR0M C 
BYTPTR = 441000000074 
li £ 
; Use different buffer than TENEX does 
3. REPEAT F4PR0M 



i Use different buffer than TENEX does 



.REPEAT 1 



F4PR0M C 



HDSKBT: JUMPCDSKUBT3 NORM * 

; Boot microcode from WAITS. UCDCli 23 
JUMPCDSKMBT3 NORM * 

iBoot macrocode from WAITS. DMP CI, 23 
JUMPCDSKUBS3 NORM * 

iBoot macrocode* file name in switches, UFD in a 

JUMPCDSKMBS3 NORM * 

iBoot macrocode, file name in switches, UFD in a 

JUMPCDSKDB7 3 NORM * 
; Load DSKDMP 
.REPEAT 1 - F4SW C 

DECONST (HDSKBT / 400)3 ROTC83 SDISP * 
i Access to high memory. 
3; .REPEAT 1 - F4SW 
.REPEAT F4SW C 

NOP * 
3i .REPEAT F4SW 

JUMPCDSKUSW3 NORM * 

i Access to switch micro-boot. Skipped for microb 

JUMPCDSKMSW3 NORM * 

i Access to switch macro-boot. Skipped for microb 

. repeat 1 ~ f4sw I 

CONTACSWAITS 4- 53 * 

iBoot microcode from WAITS. UCDCl, 23 

DSKUBT: DCCONST 13 DESTCQ3 PUSHJCDSKRCL3 NORM * 

i Do recalibrate to be safe 

i Read MFD starting at track 1 
DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM $ 



01. 


0064 


01 


0065 


01 


0066 


01 


0067 


01 


0068 


01 


0069 


01 


0070 


01 


0071 


01 


0072 


01 


0073 


01 


0074 


01 


0075 


01 


0076 


memory 



/ Read starting at word O 
DC!,, 13 ALUCD+U DESTCQl PUSHJCSRCHFN3 * 

/Search Cl#13 for CI, 23 
ALUCQ] DESTCOl SPECCA-MEM-APR&DEST-A-MEM3 NORM t 

; Set address of UFD 
DCCONST 03 DESTCMA3 PUSHJI:DSKBT03 NORM * 

j Read retrieval and UFD 
PUSHJCSWAITS3 NORM $ 

; Set file name 
PUSHJCSRCUCD3 NORM * 

i Search UFD for WAITS. UCD 
PUSHJCDSKUB13 NORM * 

i Nouj; read in the file and stuff into microcode 



JLOE 



1986 



file DSK; DSKBT. NEWC 



J, 1 J 



of — XBOOT 



01 


0077 


01 


0078 


01 


0079 


01 


0080 


01 


0081 


01 


0082 


01 


0083 


01 


0084 


01 


0085 


01 


0086 


01 


0087 


01 


0088 


01 


0089 


01 


0090 


01 


0091 


01 


0092 


01 


0093 


01 


0094 


01 


0095 


01 


0096 


01 


0097 


01 


0098 


01 


0O99 


W J. 


0100 


01 


0101 


01 


0102 


01 


0103 


01 


0104 


01 


0105 


01 


0106 


01 


0107 


01 


0108 


01 


0109 


01 


0110 


01 


0111 


01 


0112 


01 


0113 


01 


0114 


01 


0115 


01 


0116 


01 


0117 


01 


0118 


01 


0119 


Oi 


C 1 20 


01 


0121 


01 


1 22 


01 


0123 


01 


0124 


01 


0125 


01 


0126 


01 


012*7 


$ 





17124 01073017000000001400362225551456000 

17125 7107311 700000000 1 400 1 6222555 1 456000 

17126 01170017003700001400362225551456000 



l 7 j, 27 71 073 1 1 700000000 i 400 1 6222555 1456000 

17130 010731 1700000000141616222541 1456000 

17131 01 073 1 1 700000000 14161 622254 1 1 456000 

17132 01073117000000001416162025411456000 



DC 103 SPECCA-MEM--APR3 DESTCQ3 JUMPCDSKHB23 * 
j Read . DMP file as well. 



3;. repeat 1 - f4suj 

3; .REPEAT 1 - F4PR0M 

i Boot macrocode from WAITS. DMPCl. 23 
DSKHBT: DCCONST 13 DESTCQ3 PUSHJCDSKRCL3 NORM * 

; Do recalibrate to be safe 
; Read MFD starting at track 1 
DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

i Read starting at word 
DC1,,13 ALUCD+13 DESTCQ3 PUSHJCSRCMFN3 * 
^Search CI, 13 for CI, 23 
DSKMB2: 

/This stuff can go away when WAITS does this chore. 
.REPEAT 1 - F4SW C 

DCCONST 13 R0TC18. 3 DESTCHI-ABS-MA3 PUSHJCC0RCLR3 * 

; Clear upper moby 
DCCONST 03 R0TC18. 3 DESTCHI~ABS-MA3 PUSHJCC0RCLR3 * 
; Clear lower moby 
1 i . REPEAT 1 - F4SW 

DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

; Read retrieval and UFD 
PUSHJCSWAITS3 NORM * 

i Set file name 
PUSHJCSRCDMP3 NORM * 

) Search UFD for WAITS. DMP 
JUMPCDSKMB13 NORM * 

; Now, read in the file and untangle .DMP file 



.REPEAT 1 - F4SW C 

; Boot microcode from file name in switches 

DSKUBS: DCCONST 13 DESTCQ3 PUSHJCDSKRCL3 NORM * 

i Do recalibrate to be safe 

i Read MFD starting at track 1 
DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

i Read starting at word 
DC1,,13 ALUCD+13 DESTCQ3 PUSHJCSRCMFN3 * 

I Search CI, 13 for CI, 23 
ALUCQ3 DESTC03 SPECCDEST-A-MEM3 NORM % 

iSet address of UFD 
DCCONST 03 DESTCMA3 PUSHUCDSKBT03 NORM * 

i Read retrieval and UFD 
DCCONST 03 DESTCDEM~ADR3 SPECCI0B-IN3 NORM * 

J Start reading switches to get disk address 

i Setup to read console switches 
MAPFCAPR-SW3 CYLENCIOB-rNl DCI0D3 DESTCAR3 PUSHJCSRCUCD3 



01 


0128 




01 


0129 




01 


0130 




memory 




01 


0131 




01 


0132 


17133 


01 


0133 




01 


0134 




01 


0135 




01 


0136 




01 


0137 




01 


0138 




01 


0139 




01 


0140 




01 


0141 




01 


0142 




01 


0143 




01 


0144 




01 


0145 




01 


0146 




01 


0147 




01 


0148 




01 


0149 




01 


0150 




01 


0151 




01 


0152 




01 


0153 




01 


0154 




01 


0155 




01 


0156 




01 


0157 




01 


0158 




01 


0159 




01 


0160 




01 


0161 




01 


0162 




01 


0163 




01 


0164 




01 


0165 




01 


0166 




01 


0167 




01 


0168 




* 






01 


0169 




01 


0170 




01 


0171 




01 


0172 




01 


0173 




01 


0174 




01 






01 


0176 




01 


0177 




01 


0178 




01 


0179 





0107311 70000362674 161 620254 1 1 456000 



» Read file name and search UFD 
PUSHJCDSKUBn NOKM * 

I Now/ read in the file and stuff into microcode 

3; .REPEAT 1 - F4SU} 
jump 1,1 * 

J Hang for nouj- 



.REPEAT 1 - F4PR0M C 

i Boot macrocode from DSKDMP . DMP C 1 » 2 3 

DSKDBT: DCCONST 13 DESTCQ3 PUSHJCDSKRCL3 NORM * 

i Do recalibrate to be safe 

i Read MFD starting at track 1 
DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

;Read starting at word 
DCl,,n ALUCD+n DESTCQ3 PUSHJ[:SRCMFN3 $ 

; Search CI, 13 for CI/ 23 
DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

; Read retrieval and UFD 
PUSHJCSDSKDM3 NORM * 

I Set file name 
PUSHJCSRCDMP3 NORM * 

i Search UFD for WAITS. DMP 
JUMPCDSKMB13 NCJRM * 

; Now, read in the file and untangle .DMP file 



; Boot macrocode from file name in switches 
DSKMBS: DCCONST 13 DESTCQ3 PUSHJCDSKRCL3 NORM $ 

i Do recalibrate to be safe 

; Read MFD starting at track 1 
DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

/Read starting at word O 
DC1,,13 ALUCD+13 DESTCQ3 PUSHJCSRCMFN3 * 

iSearch CI, 13 for CI, 23 
DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

/Read retrieval and UFD 
DCCONST 03 DESTCDEV~ADR3 SPECCI0B-IN3 NORM * 

/Start reading switches to get disk address 

; Setup to read console switches 
MAPFCAPR~SW3 CYLENC I0B~IN3 DCI0D3 DESTCAR3 PUSHJCSRCDMP3 

i Read file name and search UFD for .DMP file 
JUMPCDSKMB13 NORM * 

J Now, read in the file and untangle -DMP file 



/Boot microcode from address in switches 
DSKUSW: DCCONST 03 DESTCDEV-ADR3 JUMPC. + 23 $ 

/Setup to read console switches 
SPECCI0B-IN3 NORM * 

/Start reading switches to get disk address 
MAPFCAPR~SW3 CYLENC I0B-IN3 DCI0D3 DESTCQ3 PUSHJCDSKRCL3 



$ 

01 0180 i Recal ibrate* just to be sure 

01 0181 DSKUBl: DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

01 0182 i Start reading into zero 

01 0163 ^ Read retrieval and file 

01 0184 .REPEAT 1 - F4SW C 

01 0185 DCCONST (200 / 100)3 ROTi:63 DESTCMA3 NORM jumpC. + 13 $ 

01 0186 /First place in memory to read. (First 200 words 

01 0186 retrieval) 

01 0187 DCCONST (0 / 200)3 R0TCe3 DESTCAR3 CYLENCFIXM3 * 

01 0188 ; First place to read boot into is 17000 for now 

01 0189 DCCONST ((16000 - 0) / 200)3 ROTC73 ALUCD-13 DESTCIR~ADR 

] NORM $ 

01 0189 



SLOt Aug 

— xboot" 
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of 



01 
01 
01 



0190 

0191 

A 1 oo 



(high 
01 0192 

01 0194 
01 0195 
01 0196 
01 0197 
01 0198 

( low 
01 0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 

DSKUB3J 

01 0207 



01 
01 
01 
01 
01 
01 
01 
01 
01 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

$ 

01 
01 
01 
01 
01 
01 
01 
01 



0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 

0226 
0227 
0228 
0229 
0230 

0233 



i Number of words to transfer 
DSKUB3: DCMEM3 DESTCMUCODE~HI 3 LONG * 

J Copy for macrocode memory into microcode memory 



word ) 



DCMA3 ALUCD+n DESTCMA3 NORM * 

J Fetch next memory location 
CYLENCFIXM3 * 

; Wait for fetch 
DC MEM 3 DESTCMUC0DE~L03 LONG * 

^ Copy for macrocode memory into microcode memory 



word ) 



DCMA3 ALUCD+i3 DESTCMA Q3 NORM * 

^ Fetch next memory location 
DC MA 3 MASK C 9 +33 C0NDC-0BUS=03 JUMPCDSKUB43 C550 * 

i Are we on a new track? 
DCCONST (200 / 100)3 R0TC63 ALUCD+Q3 DESTCMA3 NORM * 

i Yes^ Step over retrieval! 
DSKUB4: DCAR3 ALUCD+13 DESTCAR3 NORM * 

i Advance microcode address 
DCIR3 MASKC223 ALUCD-13 DESTCIR-ADR3 CONDC-OBUS< 03 JUMPC 

C550 * 

/Count words to transfer 
DCCONST 03 DESTCDEV-ADR3 SPECCI0B-IN3 NORM * 

J Begin-reading switches 
MAPFCAPR-ASW3 CYLENCI0B-IN3 DCI0D3 DESTCAR3 * 

; Finish reading switches 
DCAR3 ROTC23 CONDC-OBUS< 03 POPJ * 

i If STOP is offi boot system as well 
3i .REPEAT 1 - F4SW 
jump C. 3 $ 

; Hang for now. 

; Boot macrocode from address in switches 
DSKMSW: DCCONST 03 DESTCDEV-ADR3 JUMPC. + 13 * 

; Setup to read console switches 
SPECCI0B~IN3 NORM * 

i Make sure the 

; Start reading 

MAPFCAPR-SW3 CYLENCIOB 



map is turned off, 

switches to get disk address 

IN3 DCI0D3 DESTCQ3 PUSHJCDSKRCL3 



17134 71 073 1 1 700000000 1 400 1 6222555 1 456000 



17135 01073017000006055416162365651416000 



3; « REPEAT 1 
i \ / 

DSKMBl 



/Recalibrate* just to be sure 
F4PR0M 



DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

J Start reading into zero 

i Read retrieval and file 
DCMA3 DESTCQ3 NORM * 

i Save number of words read in Q for easy testing 



01 0234 
01 0235 

are 
01 0235 
01 0236 
01 0237 
rts at 
01 0237 
01 0238 
01 0239 
01 0240 
01 0241 
01 0242 
01 0243 
01 0244 
01 0245 
01 0246 
01 0247 
01 0248 
01 0249 
01 0250 
01 0251 
01 0252 
ffer 
01 0253 
01 0254 
01 0255 

eye le 
01 0256 
01 0257 
01 0258 
eye le 
01 0259 
01 0260 
01 0261 
01 0262 
01 0263 
01 0264 
01 0265 
01 0266 
01 0267 
01 0268 
01 0269 
01 0270 
01 0271 
01 0272 
01 0273 
01 0274 
01 0275 
01 0276 
01 0277 
01 0278 
01 0279 
01 0280 



1 7136 71 073 U 7000036276 140562025 55 1456000 

17137 01073317000006055417162365551416000 

17140 01073100000000001403162025651256000 

17141 01162100600000001416162025651456000 

17142 01073217000006055416150365651416000 

17143 01050317000006054140562365551416000 

17144 71073217000006055416162365451516000 

17145 01073117000006055416162365411216000 

1 7 1 46 i 073 i 1 70000060554 1 6 1 5036545 1 5 1 6000 

17147 71170217000006055416164365651416000 
17150 71170217000036301416162025651456000 



17151 71073117000006054031762365551416000 

17152 03073117000006055416150365451316000 

17153 71073117000006055407564365551416000 

17154 01073117000006055404550364711416000 

17155 71073117000006055407764365551416000 

17156 71073117000006054062562365551416000 

17157 01073117000006055416162365411216000 

1 7 1 60 71 073 1 1 700000605540454636545 1 5 1 6000 



DCCONST (200 / 100)3 ROTC63 DESTCMA3 NORM jumpC, + 1 3 * 
/First place in memory to read. (First 200 words 

retrieval ) 

DCCONST 743 DESTCAC3 NORM * 

i First place in memory to write. (.DMP files sta 

JOBSAV) 
DSKMB3: DFRQ DEMAS MASKC9 + 33 C0NDC-0BUS=03 JUMPCDSKMB43 C550 * 

i Are we on a new track? If not* we're OK 

iWait for fetch to complete 
DE:MA3 ALUiuD~-Q3 C0NDC-0BUS< 03 JUMPCDSKMB53 C550 $ 

i Yes, check for end-of-transf er 
DC MA 3 DESTCO^AC HOLD 3 $ 

i Save AC* copy MA into AC 
DCCONST (200 / 100)3 R0TC63 ALUCD+AC3 DESTCAC3 NORM $ 

» Step over retrieval! 
DC MEM 3 DESTCO_AC MA 3 NORM * 

i Restore AC. Set MA 
DFRQ CYLENCFIXM3 * 

J Wait for memory 
DSKMB4. DC MEM 3 DESTCH0LD3 NORM * 

iCopy from memory read buffer to memory write bu 

DCMA3 ALUCD+13 DESTCO_AC MA STRT-WRT3 NORM * 

; Increment fetch address and save in AC 

i Move old contents on AC into MA and start write 

DCMA3 ALUCD+13 DESTCO_AC MA3 JUMPCDBKMB33 NORM * 
; Increment store address and save in AC 
i Move old contents on AC into MA and start read 



DSKMB5: DCCONST (116 / 2)3 R0TC13 DESTCMA3 NORM * 

^Copy JOBSYM for EDDT 
DF/WT DCMEM3 DESTCH0LD3 LONG $ 
DCCONST 363 DESTCMA STRT--WRT3 NORM * 
DCMASK 18. 3 DESTCH0LD3 NORM f 

; Set memory size for EDDT 
DCCONST 373 DESTCMA STRT~WRT3 NORM * 
DCCONST (120 / 10)3 ROTC33 DESTCMA3 NORM * 

; Read JOBSA 
DFRQ CYLENCFIXM3 * 

iWait for fetch 
DCMEM3 MASKCIS. 3 DESTCMA PC3 NORM * 

; Set starting address 
.REPEAT 1 - F4SW C 

DCCONST 403 ROTC63 DESTCQ3 NORM * 

i Set low 12 bits of address 
ALUC03 C600 SDISP $ 

i Qo to DWP's kludge at 10000!!! 
3i .REPEAT 1 -- F4SW 
.REPEAT F4SW C 

DCCONST 703 DESTCAR3 JUMPCUBLOC + 13 * 



01 0281 
01m02S2 

01m02S2 17161 01073137000036003416162025551456000 

01m0282 

01 0282 

01 0283 

01 0284 

01 0285 

01 0286 

01 0287 

01 0288 

01 0289 

01 0290 

01 0291 

01 0292 

01 0293 

01 0294 

01 0295 

01 0296 



1; r. 



i Jump to starting address 



DC CONST 703 DESTCAR3 JUMPCUBLOC + 13 * 
I Jump to starting address 
3. REPEAT F4SW 



.REPEAT F4PR0M C 

i Interface to F4 Console Computer 
UBOOTD: DCCONST 13 DESTCQ3 PUSHJCDSKRCL3 NORM * 

# Do recalibrate to be safe 
/Read MFD starting at track 1 
DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

; Read starting at word 
DC1,,13 ALUCD+13 DESTCQ3 PUSHJCSRCMFN3 * 

iSearch Clil3 for CI, 23 
DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

i Read retrieval and UFD 
PUSHJCSWAITS3 NORM * 



OL**LJiZ* 



H U 
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01 


0297 


01 


0298 


01 


0299 


01 


0300 


01 


0301 


01 


0302 


01 


0303 


01 


0304 


01 


0305 


01 


0306 


avB 


01 


0306 


01 


0307 


01 


0308 


rt< 


5 at 


01 


0308 


01 


0309 


01 


0310 


01 


0311 


01 


0312 


01 


0313 


01 


0314 


01 


0315 


01 


0316 


01 


0317 


01 


0316 


01 


0319 


01 


0320 


01 


0321 


01 


0322 


01 


0323 


ffer 


01 


0324 


01 


0325 


01 


0326 


cycle 


01 


0327 


01 


0328 


01 


0329 


cycle 


01 


0330 


01 


0331 


01 


0332 


01 


0333 


01 


0334 


01 


0335 


01 


0336 


01 


0337 


01 


0338 


01 


0339 


01 


0340 


01 


0341 



; Set file name 
PUSHJCSRCXXX3 NORM * 

; Search for appropriate extension 
DSKCBl: DCCONST 503 ROTC63 DESTCMA3 PUSHJCDSKBT03 NORM * 

; Start reading into zero 

i Read retrieval and file 
DCMA3 DESTCQ3 NORM $ 

/Save number of words read in Q for easy testing 
DCCONST (5200 / 100)3 ROTC63 DESTCMA3 NORM jumpC- + 13 * 

i First place in memory to read. (First 200 uiords 

retrieval ) 

DCCONST 503 ROTC63 DESTCAC3 NORM * 

j First place in memory to write. (,DMP files sta 



JOBSAV) 
DSKCB3: 



DFRQ DCMA3 MASKC9 + 33 C0NDC-0BUS=03 JUMPCDSKCB43 C550 * 

i Are we on a new track? If not* we're OK 

;Wait for fetch to complete 
DE:MA3 ALUCD~Q3 C0NDC-0BUS<03 JUMPCDSKCB53 C550 * 

; Yes* check for end-of~transf er 
DC MA 3 DESTCO^AC HOLD 3 * 

; Save Ad copy MA into AC 
DCCONST (5200 / 100)3 ROTC63 ALUCD+AC3 DESTCAC3 NORM * 

i Step over retrieval ! 



DCMEM3 



NORM 
Set 



DSKCB4: 



DESTCO_AC MA 3 
; Restore AC. 

DFRQ CYLENCFIXM3 * 

;Wait for memory 

DCMEM3 DESTCH0LD3 NORM * 
;Copy from memory 



MA 



read buffer to memory write bu 



DC MA 3 ALUCD+i3 DESTCO_AC MA STRT-WRT3 NORM * 

; Increment fetch address and save in AC 

J Move old contents on AC into MA and start write 

DCMA3 ALUCD+i3 DESTCO^AC MA3 JUMPCDSKCB33 NORM * 
J Increment store address and save in AC 
i Move old contents on AC into MA and start read 



DSKCB5: DCAMEM-ABS APR-DATASW3 R0TC27. 3 MASKC9. 3 DESTCQ3 LONG * 

;GET FILE # IN Q 
DCCONST 23 ALUCD#Q3 C0NDC--ZER03 JUMPCDSKBTP3 LONG * 

; MEM IMG. ETC 
DCCONST 723 DESTCAR3 JUMPCUBLOC + 13 * 

i Jump to starting address 

DSKBTP: DCNLIT BYTPTR3 DESTCGBL-BPT3 LONG $ 

* Set byte pointer 
DCCONST 743 ALUCAC~D3 DESTCAR3 * 
; Determine word count 



01 0342 
01 0343 
01 0344 
0im0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
01ni0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 

are 
01m0345 
01m0345 
01m0345 
rts at 
01m0345 
01m0345 
01m0345 
01m0345 
01m0345 
0ini0345 
0im0345 
01m0345 
01m0345 
01fri0345 
01m0345 
01m0345 
01ni0345 
01m0345 
01m0345 
0im0345 
f f er 
01m0345 
0im0345 
01m0345 

cycle 
01m0345 
01m0345 
0im0345 



3; C 



DCAR3 ROTC23 DESTCGBL-BCT3 JUMPCUMERGE3 LONG * 
» Set byte count 
; Re-enter Foonly's bootstrap 



17162 01073017000000001400362225551456000 

17163 71073117000000001400162225551456000 

17164 01 170017003700001400362225551456000 

17165 71073117000000001400162225551456000 

17166 01073117000000001416162225411456000 

1 7 1 67 i 073 1 1 700000000 14161 622254 1 1 456000 

17170 71073117000000000152162225551456000 

17171 01073017000006055416162365651416000 

17172 710731 17000036366152562025551456000 

17173 01073317000006054152162365551416000 

1 7 i 74 01 073 1 0000000000 1 403 1 6202565 1 256000 

171 75 1 1 62 1 0060000000 1 4 1 61 6202565 1 456000 

1 7 1 76 1 0732 1 70000060554 1 6 1 5036565 1 4 1 6000 

17177 01050317000006054152562365551416000 
1 7200 7 1 0732 1 70000060554 1 6 1 6236545 1 5 1 6000 
17^201 01073117000006055416162365411216000 

17202 01073117000006055416150365451516000 

17203 71170217000006055416164365651416000 

1 7204 7 1 1 702 1 700003637 14161 6202565 1 456000 



; Interface to F4 Console Computer 

UBOOTD: DCCONST U DESTCQ^ PUSHJCDSKRCL3 NORM * 

; Do recalibrate to be safe 

i Read MFD starting at track 1 
DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

; Read starting at word O 
Di:i.,n ALUCD+13 DESTCQ3 PUSHJCSRCMFN3 * 

; Search CI, 13 for CI, 23 
DCCONST 03 DESTCMA3 PUSHJCDSKBT03 NORM * 

i Read retrieval and UFD 
PUSHJCSWAITS3 NORM * 

j Set file name 
PUSHJCSRCXXX3 NORM * 

* Search for appropriate extension 
DSKCBl: DCCONST 503 ROTC63 DESTCMA3 PUSHJCDSKBT03 NORM * 

i Start reading into zero 

i Read retrieval and file 
DCMA3 DESTCQ3 NORM $ 

I Save number of words read in Q for easy testing 
DCCONST (5200 / 100)3 R0TC63 DESTCMA3 NORM jumpC. + 13 $ 

; First place in memory to read. (First 200 words 

retrieval ) 

DCCONST 503 ROTC63 DESTCAC3 NORM * 

i First place in memory to write. (.DMP files sta 



JOBSAV ) 
DSKCB3: 



DSKCB4: 



DFRQ DCMA3 MASKC9 + 33 C0NDC~0BUS=03 JUMPCDSKCB43 C550 * 

; Are we on a new track? If not, we're OK 

iWait for fetch to complete 
DCMA3 ALUCD--Q3 CONDC-OBUS< 03 JUMPCDSKCB53 C550 * 

i Yes, check for end-of-transf er 
DC MA 3 DESTCO„AC HOLD 3 * 

i Save AC, copy MA into AC 
DCCONST (5200 / 100)3 ROTC63 ALUCD+AC3 DESTCAC3 NORM * 

; Step over retrieval! 
DC MEM 3 DESTCO^AC MA 3 NORM * 

i Restore AC. Set MA 
DFRQ CYLENCFIXM3 * 

J Wait for memory 
DC MEM 3 DESTCH0LD3 NORM * 

iCopu from memory read buffer to memory write bu 

DCMA3 ALUCD+13 DESTCO_AC MA STRT-WRT3 NORM * 

i Increment fetch address and save in AC 

J Move old contents on AC into MA and start write 

DCMA3 ALUCD+13 DESTCO^AC MA3 JUMPCDSKCB33 NORM $ 
i Increment store address and save in AC 
i Move old contents on AC into MA and start read 



eye Ib 
01m0345 

01m0345 17205 01073017000000034662362367011416000 

01m0345 

01m0345 17206 01066100000000001400562025551456000 

01m0345 

01m0345 17207 01073137000036003416562025551456000 

01m0345 

01m0345 

01m0345 17210 01073117110200000017134365511416000 

01m0345 

01m0345 17211 01151137000006055417162365551416000 

01m0345 

0im0345 17212 1 073 U 7000036040056 13202541 1456000 

01m0345 

01m0345 

01 0345 

01 0346 

01 0347 



DSKCB5: DCAMEM-ABS APR-DATASW3 R0TC27. 3 MASKC9. 3 DESTCQ3 LONG f 

; GET FILE # IN Q 
DCCONST 23 ALUCD#Q3 C0NDC~ZER03 JUMPCDSKBTP3 LONG * 

i MEM IMG. ETC 
DCCONST 723 DESTCAR3 JUMPCUBLOC + 13 $ 

i Jump to starting address 

DSKBTP: DCNLIT BYTPTR3 DESTCGBL-BPT3 LONG * 

i Set byte pointer 
DCCONST 743 ALUCAC~D3 DESTCAR3 * 

J Determine word count 
PCAR3 ROTC23 DESTCGBL-BCT3 JUMPCUMERGE3 LONG * 
.: Set byte count 
; Re-enter Foonly's bootstrap 
3. REPEAT F4PR0M 

.repeat I 



SLOE 
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01 


0348 


01 


0349 


01 


0350 


01 


0351 


01 


0352 


01 


0353 


01 


0354 


ow 




01 


0355 


01 


0356 


01 


0357 


01 


0358 


01 


0359 


01 


0360 


01 


0361 


* 


01 


0362 


01 


0363 


01 


0364 


01 


0365 


01 


0366 


01 


0367 


01 


0368 


01 


0369 


01 


0370 


01 


0371 


DSJBT33 


01 


0371 


01 


0372 


01 


0373 


01 


0374 


01 


0375 


01 


0376 


01 


0377 


void 


01 


0377 


01 


0378 


ck 


of 


01 


0378 


01 


0379 


01 


0380 


01 


0381 


01 


0382 


01 


0303 


01 


0384 


01 


0385 


01 


0386 


01 


0387 


01 


0388 


01 


0389 


lock) 


01 


0390 



17213 01073117004006055400246365551417000 

17214 01024117003106055416152365411416000 

17215 01073117024006055402046365551417000 

17216 01073117000000001416162225411456000 

17217 01073117000000001416162225411456000 

17220 01073137000000001400162225551456000 



; Read N contiguous blocks 

DSJBT3: DCCONST 03 R0TC35. ~ 26.3 DESTCAR3 PUSHJCDSK-0P3 NORH * 

; Read a block 
PUSHJCDSK-WT3 NORM * 

J Wait for completion 
ALUCQ+13 DESTCAR3 NORM « 

i Advance sector counter- Save result in AR for n 

DCMA3 DESTCQ3 NORM * 

i Setup to advance MA 
DCCONST 13 ROTC93 ALUnD+Q3 DESTCMA3 NORM * 

i Advance by one page (=512 words) 
DCAR3 MASKC83 DESTCQ3 * 

;Mask off sector part 
DCCONST NSECT0RS3 ALUCQ-D3 C0NDC0BUS<03 JUMPCDSJBT43 C55 

i Check for end-of-track 
DCAR3 ALUCD-Q3 DESTCQ3 NORM * 

i Set to sector zero 
DCCONST 13 R0TC35. - 27.3 ALUCD+Q3 DESTCQ AR3 NORM * 

; Advance head part. 

i *** Don't worry about head overflow for now 
I \ / 

DSJBT4: DrAR3 DESTCQ3 NORM * 

i Put disk address back into Q 
DCIR3 MASKC223 ALUCD--13 DESTCIR-ADR3 CONDC-OBUS< 03 JUMPC 



C550 * 



; Check for end-of-transf er 
POPJ NORM * 



3/ repeat 

i Read from WAITS disk file into memory. No attempt is made to a 

reading 
i retrieval part of track. Q contains track address of first tra 

file. 
iAlso/ turns off map- 

DSKBTO: DCCONST 13 DESTCDEV-ADR3 NORM * 

; Select MAP 
ALUC03 DESTCI0D3 SPECCI0B-0UT3 SHORT $ 
j Turn off all random enablings 
MAPFC23 CYLENCI0B-0UT3 DCCONST DSKUDEV3 DESTCDEV~ADR3 * 
jReselect disk, 
DSKBTl: PUSHJCDSKCVA3 NORM * 

i Convert to local disk address 
DSKBT2: PUSHJCDSK--WT3 NORM * 

;Make sure disk is ready (not needed for first b 

DCCONST 03 DESTCAR3 PUSHJCDSK-0P3 NORM * 



01 0391 

01 0392 17221 01073100200000000764562225651456000 

NORM H 

01 0393 

nto HA 



i Read block from disk 
DCMA3 R0TC36. - 53 MASKC18. 3 C0NDC0BUS=03 PUSHJCDSK-WT3 

iWait for completion here if reading retrieval i 



1 0393 

01 0394 17222 01120137000006055416162365411416000 

ALUCQ+ll DESTCAR] NORM f 

01 0395 

OUJ 

01 0396 17223 01073017000006055416162365651416000 

01 0397 

01 0398 17224 71060117000006054220362365551416000 

01 0399 

01 0400 17225 01073017000006055402162365411416000 

i 040 1 

01 0402 17226 01161100600000001402162025551456000 
50 * 

01 0403 

not, 

01 0404 17227 01073017000036437416162025411456000 

01 0405 

01 0406 17230 01073137000006055416162365651416000 

01 0407 

01 0408 

01 0409 17231 01073000200000000600362025651456000 

1 04 1 

oc k 

01 0411 17232 01073017000006055404562365551416000 

01 0412 

01 0413 17233 01 1621 1 700000o05540444436555i4i7000 

01 0414 

01 0415 17234 01073017000006054561362365651416000 

$ 
01 0416 

01 0417 17235 71060117000006055404162365551416000 
01 0418 

01 0419 17236 01073117000006055416162365411216000 
01 0420 

01 0421 17237 01073000200000001204562025451556000 
1 C550 $ 



i Advance sector counter. Save result in AR for n 

DCMA3 DESTCQ3 NORM * 

> Setup to advance MA 
DCCONST 13 ROTC93 ALUCD+Q3 DESTCMA3 NORM * 

; Advance by one page (-512 words) 
DCAR3 MASKCS3 DESTCQS * 

J Mask off sector part 
DCCONST NSECT0RS3 ALUI:Q-D3 C0NDC--0BUS< 03 JUMPCDSKBT33 C5 

i Check for end-of-~track. Read rest of track if 

DCAR3 DESTE:Q3 JUMPCDSKBT23 NORM * 
i Restore Q 
DSKBT3: DC MA 3 DESTCAR3 NORM * 

i Same MA for now 
DrMA3 R0TC36. - (9 + L0G2NSEC ) 3 MASKC13 DESTCQ3 

C0NDC0BUS=03 JUMPCDSKBT43 C550 * 
^Decide which half to use for pointer to next bl 

DCCONST IS. 3 DESTCQ3 NORM * 

i Use right half 
DSKBT4: DCCONST 18.3 ALUCD-Q3 DESTCR0TR3 NORM $ 

; Compute proper half 
DCMA3 R0TC36. - (9 + L0G2NSEC +1)3 MASKC53 DESTCQ3 NORM 

i Get address within retrieval 
DCCONST 203 ALUCD+Q3 DESTCMA3 NORM * 

/Fetch pointer from retrieval 
DFRQ CYLENCFIXM3 * 

;Wait for memory 
DCMEM3 R0TCR3 MASKC18. 3 DESTCQ3 C0NDC0BUS=03 JUMPCDSKBT5 



01 0421 

01 0422 

iQst disk address 

01 0423 17240 71073117000036435416162025411456000 

01 0425 17241 71073117000000001416162025411456000 

01 0426 

01 0427 

01 0429 

01 0430 



DCAR3 DESTCMA3 JUMPCDSKBT13 NORM * 
; Restore MA 
DSKBT5: DCAR3 DESTCMA3 JUMPCDSK-WT3 NORM * 

i Restore MA and wait for disk to finish. 

. REPEAT F4PR0M C 

SRCXXX: DCAMEM~ABS APR--DATASW3 R0TC27. 3 MASKC23 DESTCQ3 LONG * 

; GET FILE # IN Q 



01 
01 
01 
01 
01 

01 



0431 
0432 
0433 
0434 
0435 
0436 
0437 
01m0438 
01m0438 
01m0438 
0im0438 
01m0438 
01m043S 
0im0438 
01m0438 
01m0438 
01m0438 
01 0438 
0439 
0440 
0441 
04- 4 2 
0443 
0444 
0445 
0446 
0447 



01 
01 
01 
01 
01 
01 
01 
01 
01 



1 7242 1 0730 1 70000000346605623670 1141 6000 

17243 01060117000000000000150365511416000 

17244 010731 17000000000016000725451556000 

17245 01073117000000001416162025411456000 

17246 01073117000000001416162025411456000 

17247 01073117000000001416162025411456000 
17250 01073117000000001416162025411456000 



SRCDSP: 



DC LAB EL SRCDSP 3 ALUCD+Q3 DESTCH0LD3 * 
DC MEN 3 R0TCMUA~R0T3 ODISP LONG * 
JUMPCSRCUCD3 $ i Microcode 

JUMPCSRCUDQ3 * iMicrodiag 

JUMPCSRCCCL3 * ; CCL 

JUMPCSRCDMP3 * ; System 



3; C 
SRCXXX: 



SRCDSP: 



DCAHEM-ABS APR-DATASW3 R0TC27. 3 MASKC23 DESTCQ3 LONG % 

; GET FILE # IN Q 
DCLABEL SRCDSP3 ALUCD+Q3 DESTCH0LD3 $ 
DCMEM3 R0TCMUA-R0T3 ODISP LONG * 
JUMPCSRCUCD3 % ; Microcode 

JUMPCSRCUDG3 $ ;Microdiag 

JUMPCSRCCCL3 % ; CCL 

JUMPCSRCDMP3 * i System 

3. REPEAT F4PR0M 

.REPEAT F4SW C 

SRCUDG: DCAR3 DESTCQ3 * iWAITSX.OBJ 

DCCONST 703 ALUCD0RQ3 DESTCAR3 JUMPCSRCUCD3 * 
SRCUCD: DCLIT 5742523 DESTC IR--ADR3 * ; . OB J 

JUMPCDSKSRC3 * 



SRCCCL: DCLIT 4343543 DESTC IR-ADR3 POPJ * 
JUMPCDSKSRC3 * 



i m CwL 



SLOE 



Aug 



Bi 1986 18:08:01 file STRING: 



— of — xeooT 



Oi< 


Tt044S 


01m0448 


01m0448 


01< 


Tt044S 


01m0448 


01m0448 


01fn0448 


01m044e 


01 


0448 


01 


0449 


01 


0450 


01 


0451 


01 


0452 


01 


0453 


01 


0454 


01 


0455 


01 


0456 


01 


0457 


01 


0458 


01 


0459 


01 


0460 


01 


0461 


01 


0462 


01 


0463 


01 


0464 


01 


0465 


01 


0466 


01 


0467 


01 


0468 


01 


0469 


01 


0470 


01 


0471 


01 


0472 


01 


0473 


01 


0474 


01 


0475 


01 


0476 


01 


0477 


01 


0478 


01 


0479 


01 


0480 


01 


0481 


01 


0482 


01 


0483 


01 


0484 


01 


0485 


01 


0486 


01 


0487 


01 


0488 


01 


0489 


01 


0490 


01 


0491 



17251 0107301700000605541616236541 1416000 

17252 01063137000000001416162025551456000 

17253 61073117000000137052544365511416000 

17254 010731 1700000000141616202541 1456000 

17255 61073117000000107073144425511416000 

17256 01073117000000001416162025411456000 



17257 01 0730 i 700000605475576236555 141 6000 

17260 01063017000006054610362365551416000 

17261 01063017000006054452362365551416000 

17262 01063017000006054315162365551416000 

1 7263 1 0630 1 7000006054 1 5476236555 1 4 1 6000 

1 7264 J. 063 1 37000006055405 1 6242555 1 4 1 6000 



17265 01073017000006054311162365551416000 

1 7266 1 0630 1 7000006054 1 53362365551 4 1 6000 

1 726 7 6 1 063 1 1 700000605 54 1 4 1 4436555 1 4 1 6000 
17270 01073117000000001416162025411456000 



17271 01063137003706054100362365551416000 

17272 01073017000006054315362365551416000 

17273 01063017000006054151562365551416000 

17274 61063117000006055411144365551416000 



2i t 
SRCUDG: 

SRCUCD: 



DCAR3 DESTCQ3 * iWAITSX.OBJ 

DCCONST 703 ALUED0RQ3 DESTCAR3 JUMPCSRCUCD3 * 
DCLIT 5742523 DESTC IR--ADR3 * i . OB J 

JUMPCDSKSRC3 * 



SRCCCL: DCLIT 4343543 DESTC IR-ADR3 POPJ * 

JUMPCDSKSRC3 * 
3. REPEAT F4SW 



) B CCL 



REPEAT 1 



F4PR0M C 



iSet filename to DSKDHP 

SDSKDM: DCCONST 443 R0TC30. 3 DESTCQ3 NORM * 

DCCONST 633 R0TC24. 3 ALUCD0RQ3 DESTCQ3 NORM * 
DCCONST 533 ROTCIS. 3 ALUCD0RQ3 DESTCQ3 NORM * 
DCCONST 443 R0TC12. 3 ALUCD0RQ3 DESTCQ3 NORM * 
DCCONST 553 R0TC6- 3 ALUCD0RQ3 DESTCQ3 NORM * 
DCCONST 603 ALUCD0RQ3 DESTC AR 3 POPJ NORM * 

li .REPEAT 1 - F4PR0M 

# Set filename to WAITS 

SWAITS: DCCONST 673 R0TC30. 3 DESTCQ3 NORM $ 

DCCONST 413 R0TC24. 3 ALUCD0RQ3 DESTCQ3 NORM * 
DCCONST 513 ROTCIS. 3 ALUCD0RQ3 DESTCQ3 NORM * 
DCCONST 643 R0TC12. 3 ALUCD0RQ3 DESTCQ3 NORM $ 
DCCONST 633 R0TC6. 3 ALUCD0RQ3 DESTCQ3 NORM * 

Jw DCCONST 003 ALUCD0RQ3 DESTCAR3 POPJ NORM * 
DCCONST 243 ALUCD0RQ3 DESTC AR 3 POPJ NORM $ 



.REPEAT 1 - F4SW C 

; Search for . UCD file 

SRCUCD: DCCONST 653 R0TC12. 3 

DCCONST 433 

DCCONST 44 3 



DESTCQ3 NORM * 
R0TC6. 3 ALUCD0RQ3 DESTCQ3 NORM * 
ALUCD0RQ3 DESTC IR-ADR3 
JUMPCDSKSRC3 NORM * 



3; » REPEAT 1 



F4SW 



;D 
;S 
iK 
iD 
iM 



}\4 
; A 
i I 
i T 
iS 

;4 



iU 

i C 
iD 



i Search for . DMP file 

SRCDMP: DCCONST 443 RaTC12. 3 DESTCQ3 NORM * 

DCCONST 553 R0TC6. 3 ALUCD0RQ3 DESTCQ3 NORM * 
DCCONST 603 ALUCD0RQ3 DESTC IR~ADR3 NORM $ 

JUMPCDSKSRC3 NORM * 

J Search for UFD in AR 

SRCMFN: DC1,,13 R0TC43 ALUCD0RQ3 DESTCAR3 NORM * 

SRCMFD: DCCONST 653 R0TC12. 3 DESTCQ3 NORM * 

DCCONST 463 R0TC6. 3 ALUCD0RQ3 DESTCQ3 NORM $ 

DCCONST 443 ALUCD0RQ3 DESTCIR-ADR3 * 
i \ / 

/Search UFD for XXXXXX.YYY, where AR contains XXXXXX and IR~ADR 



i Cn# n3 
J U 
iF 
; D 



contains 
01 0491 
01 0492 

01 0493 17275 71073117000006054140562365551416000 

01 0494 

01 0495 17276 01073117000006055416162365411216000 

01 0496 

01 0497 

01 0498 17277 01073017000006055416162365451516000 

01 0499 

01 0500 17300 71170117000006055416162365651416000 

01 0501 

01 0502 17301 01162100000000001416162025411256000 

01 0503 

01 0504 17302 01073017000006054444562365451516000 

01 0505 

01 0506 17303 01162100000000001404562025751456000 

01 0507 

01 0508 17304 71170117000006055416162365651416000 

01 0509 

01 0510 17305 71170117000006055416162365651416000 

01 0511 

01 0512 17306 03073017000006055416162425451316000 

01 0513 

01 0514 

01 0515 17307 01072017000006055404162365551416000 

01 0516 

01 0517 17310 71060117000006055416162365651416000 

01 0518 17311 01073100000036577403162025651256000 

€550 $ 
01 0519 

01 0520 17312 01072117000036625400162025551456000 
01 0521 
01 0522 

and 

01 0524 
01 0525 

01 0526 17313 01073117004006055402046365551417000 

01 0527 

01 0528 17314 01063017000006054721762365551416000 

01 0529 

01 0530 17315 01065117003106054700352365551416000 

3 NORM $ 



YYY 
/Return pointer to first block in Q 
DSKSRC: DCCONST 23 R0TC63 DESTCMA3 NORM % 

; Sk ip retrieval 
DFRQ CYLENCFIXMD * 

;Wait for memory 
i \ / 

DSKSR2: DCMEM3 DESTCQ3 NORM * 

; Save f i le name 
DCMA3 ALUCD+13 DESTCMA3 NORM * 

; Increment to get extension 
DFRQ DCAR3 ALUCD~Q3 C0NDC-0BUS=03 JUMPCDSKSR33 C550 % 

i If not the same file* skip this entry 
DCMEM3 R0TC18. 3 MASKC18. 3 DESTCQ3 * 

i Get extension from left half 
DCIR3 MASKC18. 3 ALUCD-Q3 C0NDC~0BUS=03 JUMPCDSKSR33 C550 

iSkip this entry if not same extension 
DCMA3 ALUCD-H3 DESTCMA3 * 

iSkip date 
DtMA3 ALUCD+13 DESTCMA3 * 

J Read pointer to file 
DF/WT DCMEM3 DESTCQ3 POPJ LONG * 

/Done. Return pointer to file in Q. 

DSKSR3: DCCONST 203 ALUCD~13 DESTCQ3 NORM * 

i Advance to next entry in table 
DCMA3 ALUCD+Q3 DESTCMA3 NORM * 
DFRQ DCMA3 MASKi:9 + LOG2NSEC3 C0NDC-0BUS=03 JUMPCDSKSR23 

J Check for end of track- 
ALUC--13 JUMPC. 3 * 

;File not found- 

; Read block in whose disk address is in Q^ memory address in MA* 

; command in AR. Preserves everything except DEV-ADR and lOD. 

; Caution: This routine ties up lOB (stops DMA) for about 6 usee 

DSK-OP: DCCONST DSKUDEV3 DESTCDEV-ADR3 NORM $ 

i Set device address for disk 
DCCONST B00T-DRIVE3 R0TC35. -6.3 ALUCD0RQ3 DESTCQ3 * 

; Include unit number (*## kludge ***) 
DCCONST 13 R0TC35. - 73 ALUC-D8cQ3 DESTCI0D3 SPECCIOB-OUT 



01 0530 
01 0531 

iPut out disk address uiith select off 
01 0532 
01 0533 
0D3 

01 0534 17316 01063117063106054700352365551416000 



MAPFCDSK-LD-DA3 CYLENC I0B~0UT3 

DCCONST 13 R0TC35. 

SPECCI0B~0UT3 $ 



73 ALUCD0RQ3 DESTCI 



04 ^n f* r-^ r" 

01 0536 

01 0537 17317 01073117063106055416152365651416000 

01 0538 

01 0539 

01 0540 17320 01073117053106055416152365411416000 

01 0541 

01 0542 

01 0543 17321 01073117043106055400352365551416000 

01 0544 

01 0545 17322 01073117070006055416162425411416000 

01 0546 

01 0547 

01 0548 

01 0549 

01 0550 17323 01073117001005054002400365551417000 

01 0551 

1 0552 i 7324 i 073 1 0700003665 1 4 1 6 1 620254 1 1 456000 



i Put out disk address with select on 
MAPFCDSK-LD-DA3 CYLENCI0B-0UT3 

DCMA3 DESTCI0D3 SPECCI0B-0UT3 $ 
i Put out memory address 
MAPFCDSK~LD~MA3 CYLENC I0B-0UT3 

DC:AR3 DESTCI0D3 SPECC I0B-0UT3 * 
; Load c ommand 
MAPFCDSK~LD~CMD3 CYLENC I0B-0UT3 

DCCONST DSK~G03 DESTCI0D3 SPECC I0B-0UT3 

; Start disk controller 
MAPFCDSK-LD-ECC3 CYLENC: I0B-0UT3 POPJ * 
i Done 

jWait for disk to complete. Clobbers only AR. 

; MUST WAIT FOR DRIVE! ! ! 

DSK-WT: DCCONST 10. 3 R0TCLL0AD-R0T3 LLOAD NORM * 

i Load loop counter to give DMA a chance 
LOOPC. 3 C500 $ 



SLufc. Aug 18, 1¥86 18:08:03 fii^ DSK; DSKBT. NEWC 1 . 1 1 1 3 — - of — XBOOT 



01 0553 

01 0554 17325 01073117003006055416162365411416000 

01 0555 

01 0556 17326 01073137040006055416162365711416000 

01 0557 

01 0558 17327 01073100400036657416162025411456000 

01 0559 

01 0560 17330 01073100600036646216162025411456000 

01 0561 

01 0562 17331 01073100400036646056162025411456000 

01 0563 

01 0564 17332 01073100600006054716162425411416000 

01 0565 

01 0566 17333 01073117000036667416162025411456000 

01 0567 

01 0568 

01 0569 

01 0570 

01 0571 17334 01073117004006055402046365551417000 

01 0572 

01 0573 17335 01073117003106055400552365551416000 

01 0574 

01 0575 17336 01073117073006055416162365411416000 

01 0576 

01 0577 

01 0578 17337 01073137040006055416162365711416000 

01 0579 

01 0580 17340 01073100600036674216162025411456000 

01 OSSi 

01 0582 17341 0107"323700u006054420762365551416000 

01 0583 

T ) 

01 0584 

01 0585 17342 01053317000006054221162365551416000 

01 0586 

01 0587 17343 01073237000036627416162225411456000 

01 0588 

01 0589 17344 01065017000036646721762025551456000 

CDSK-WT] 

01 0589 

01 0590 

01 0591 

01 0592 

01 0593 

E only) 

01 0594 

01 0595 

01 0596 17345 01073117000006055400150365551416000 

01 0597 

01 0598 17346 01161000400000001404762025551456000 

2 J C550 * 

01 0598 



iWait N+1 microseconds 
SPECCIOB-IN] SHORT * 

/ Sta-rt reading status 
MAPFCDSK-RD-CMD] CYLENC I0B-IN3 DCI0D3 DESTCAR3 * 

i Finish reading status 
DCAR3 C0NDC0BUS<03 JUMP C. 3 NORM * 

i Select error. Display error status on OBUS 
DCAR3 R0TC8. 3 COND[:-OBUS< 03 JUMPCDSK--WT3 * 

;Wait some more for disk controller 
DE:AR3 R0TC2. 3 CONDCOBUS< 03 JUMP C DSK~WT 3 $ 

iWait some more for disk to go ready 
DCAR3 R0Ti:28. 3 CONDC-OBUS< 03 POPJ C550 * 

I Done if no error 
DCAR3 JUMPC. 3 NORM $ 

i Display error status on OBUS 

/Recalibrate disk (reset) 

; Assumes disk address in Q. Clobbers ARi DEV~ADR 
DSKRCL: DCCONST DSKUDEV3 DESTnDEV-ADR3 NORM * 

; Set device address for disk 
DCCONST DSK-INIT3 DESTCI0D3 SPEC CI OB -OUT 3 NORM * 
; Initialize disk controller 
DSKRC2: MAPFCDSK~LD-ECC3 CYLENC I OB-OUT 3 SPECCI0B-IN3 $ 

/Finish send command 
; Start reading status 
MAPFCDSK~RD--CMD3 CYLENC I0B-IN3 DCI0D3 DESTCAR3 * 

i Finish reading status 
DCAR3 ROTCS. 3 CONDC-OBUS< 03 JUMPCDSKRC23 * 

i If not ready/ wait some more 
DCCONST 33 R0TC35. - 18.3 DESTCO_AC AR3 NORM * 

/Setup for recalibrate (recalibrate + fault clea 

/ Save AC 
DCCONST 43 R0TC35. - 26.3 ALUCD0RAC3 DESTCAC3 * 

/Finish constructing recalibrate command 
DCAR3 DESTC0_AC3 DESTCAR3 PUSHJCDSK~0P3 * 

/Swap AR and AC/ then do recalibrate 
DCCONST B00T-DRIVE3 R0TC35. - 6. 3 ALUC-D8eQ3 DESTCQ3 JUMP 



NORM $ 



; #** Undo drive number kludge 
/Wait for completion 



i Convert WATTS disk address into F2 disk address (unit BOOT-DRIV 

I Slow but simple divide by NHEADS. Takes track address in (3 

/Return disk address in Q and MEM 

DSKCVA: DCCONST 03 ALUCD3 DESTCH0LD3 NORM $ 

/Result starts being zero 
DSKCVl: DCCONST NHEADS3 ALUCQ--D3 DESTCQ3 C0NDC0BUS<03 JUMPCDSKCV 



01 0599 




01 0600 


1 7347 


01 0601 




01 0602 


17350 


01 0603 




01 0604 




01 0605 




01 0606 




01 0607 




01 0608 




01 0609 




01m06i0 




01n\0610 


17351 


01m0610 


17352 


0im0610 


17353 


01m0610 


17354 


01m0610 




01 0610 




01 0611 


17355 


01 0612 




01 0613 


_17356 


01 0614 




01 0615 




01 0616 




01 0617 


17357 


01 0618 


1'7360 


01 0619 


17361 


01 0620 


17362 


01 0621 


17363 


01 0622 




01 0623 




01 0624 




01 0625 




01 0626 




01 0627 




+ 13 * 




01 0628 




01 0629 




00 bit. 




01 0630 




- 13 $ 




01 0631 




dr. in Q 


01 0631 




01 0632 




; Just ir 


\ case 


01 0633 




01 0634 




01 0635 




01 0636 




01 0637 




01 0638 





01 1701 17000036715416150025451556000 
01060017000006055404762365551416000 



01073117000006054036150365451516000 
01161100400000001402562025551456000 
01161017000006055402562365551416000 

01170117000006055416150365451516000 



1 060 1 1 70000060542 1 6 i 5036545 1 5 1 6000 
01073017000006054216150425451516000 



710241 1 / 0000060 5 54 161 6236 541 1416000 
010241 1700000605541615636541 1416000 
71170117000006055416162365651416000 

01073100000036741404562025651456000 
010731 1700000605541616242541 1416000 



t d o e 5 n 



e X i 5 1 



; Trial subtraction. 
DC MEM 3 ALUCD+n DESTCH0LD3 JUMPCDSKCV13 NORM * 

; Count cylinders 
DSKCV2: DCCONST NHEADS3 ALUCD4-Q3 DESTCQ3 NORM * 

i Restoring add 
.repeat cdcl60kludge i:i#»* 

dCmem3 rotC13 destChold3 norm * 

dCconst 10.3 aluCq-d3 condCobus<03 jumpCdskcv33 * 

dCconst 10.3 aluCq-dS de5tCq.3 * 

dCmem3 aluCd+13 destChold3 * 



dskcv3: 
3 i C ; **^- 



dskcv3: 
3. repea 



dCmem3 rotCi3 destChold3 norm * 

dCconst 10-3 aluCq--d3 condCobus<03 jumpCdskcv33 * 

dCconst 10.3 aluCq-d3 destCq3 * 

dCmem3 aluCd+l3 destChold3 * 

t cdcl60kludge 
DCMEM3 R0TC27. - 19. 3 ALUCD4-Q3 DESTCH0LD3 NORM * 

iAdd head number to cylinder number 
DCMEM3 R0TC35. - 27. 3 DESTCQ H0LD3 NORM POPJ * 

; Aligns save and return 



; Clear 256K of memory. Must not clobber Q (!) 

CORCLR: ALUC03 DESTCMA3 NORM * 

ALUCOT DESTrMEMST03 NORM * 

DCMA3 ALUCD+13 DESTCMA3 NORM * 

DCMA3 MASKC18. 3 C0NDC-0BUS=03 JUMPC. - 

POPJ NORM * 



23 C600 * 



.REPEAT 1 - PROM C 
.REPEAT 1 - F4SW C 

: 7775 

DSKSBT: DCCONST ( (DSKMBS \ 10000) / 200)3 ROTC73 DESTCQ3 JUMP C. 

DCCONST (XUCODE * 10) + 23 R0TC9. 3 ALUCD+13 C600 SDISP * 
/This takes us to loc. 2001 and pre-sets the 100 

DSKBT: DCCONST ( (HDSKBT \ 10000) / 200)3 ROTC73 DESTCQ3 JUMPC. 

; Jump into high part of umemoryi using 12--bit ad 



: 2001 

DCCONST XUC0DE3 R0TC12. 3 ALUCD0RQ3 SDISP * 
iThis finally takes us to loc. 10000+CQ3 

i Here's another entry point 
: 17777 

DCCONST (HDSKBT / 400)3 ROTC83 SDISP * 



1 0639 



01 0640 
01 0641 

01 0642 
01 0643 
01 0644 



: 



JUMPCDSKBT3 * 



i For loading from tape (sigh...) 



1; .REPEAT 1 - F4SW 
3; .REPEAT 1 - PROM 



tsLOE I 

09 0491 
09 0492 
09 0493 

09 0494 
09 0495 
09 0496 
09 0497 

PAGES 
09 0498 
09 0499 
09 0500 
09 0501 
K ADR 
09 0502 
09 0503 
09 0504 
09 0505 
09 0506 
09 0507 


09 0508 
09 0509 



.yg 



jH, 1 vfBt* IQi Oh ' Kj' 



file STRINO: 



09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 
09 



0510 
051 1 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 

0523 
0524 

KJ ^^ w? 

0526 
0527 



of — XBOOT 

3. REPEAT WAITS 

.REPEAT 1 ~ WAITS C 

J SUCK IN NEXT DATA PAGE, INIT BYTE COUNT 

DSKIO: DCDSK~A0B3 CONDC -NEGATIVE 3 JUMPCN0M0RE3 LONG * 

i IF PAGE COUNTER AOBJN WENT POSITIVE, RAN OUT OF 

DCDSK-A0B3 MASKC18. 3 DESTCQ3 LONG * 

;GET PAGE # IN Q 
DCCONST XBPAG3 R0TC9. 3 ALUCD+Q3 DESTCMA3 LONG * 

i LOAD MA WITH ADR OF XB WORD CONTAINING NEXT DIS 

DF/WT DC MEM 3 DESTCQ3 C0NDCZER03 JUMPCN0TSEQ3 LONG * 

iGET SOFT ADR IN DSK-SDA BUT JUMP IF IT IS ZERO 

ALUCQ3 DESTCDSK-SDA3 PUSHJCCVDSK3 LONG * 
; CONVERT TO HARD DA IN DSK-HDA 

DCCONST DATPAG3 R0TC9. 3 DESTCDSK-MEM3 PUSHJCRDSK3 LONG $ 
; DSK-HDA SETUP, DSK~MEM GET MEM ADR, READ DATA P 

DCDSK-A0B3 DESTCQ3 LONG $ 

;GET AOBJN PTR IN Q 
DC!,, 13 ALUCD+Q3 DESTCDSK-A0B3 LONG * 

; UPDATE AOBJN PTR 
DCLIT 4. * 512, 3 DESTCGBL-BCT3 POPJ LONG * 

; INIT # BYTES LEFT TO A FULL PAGE WORTH 

i RETURN 

iHERE IF EXPECTED A PAGE PTR FROM XB BUT FOUND A ZERO INSTEAD 
i MEANING FILE IS NOT SEQUENTIAL UP TO THE TERMINATING FLAG ADR 

NOTSEQ: JUMPCXUB00T3 LONG $ 

i HERE IF AOBJN PTR WHICH SCANS XB WENT NON-NEGATIVE 
; MEANING WE SAW ALL PAGES THERE ARE TO SEE 

NOMORE: JUMPCXUB00T3 LONG * 

li .REPEAT 1 - WAITS 



bi„ut. 



rt U g 



i y I 






05 file DSK:F4UB0T.NEW 



of 



XBOOT 



10 


0528 


10 


0529 


10 


0530 


10 


0531 


10 


0532 


10 


0533 


10 


0534 


10 


0535 


10 


0536 


10 


0537 


10 


0537 


10 


0538 


ONG % 


10 


0539 


10 


0540 


10 


0541 


10 


0542 


10 


0543 


10 


0544 


10 


0544 


10 


0545 


10 


0546 


10 


0547 


10 


0548 


10 


0549 


10 


0550 


10 


0551 


10 


0552 


10 


0553 


ONG $ 


10 


0554 


10 


0555 


10 


0556 


10 


0557 


10 


0558 


10 


0559 


10 


0560 


10 


0561 


10 


0562 


10 


0563 


10 


0564 


10 


0565 


10 


0566 




0567 


10 


0568 


10 


0569 


IN Q 


10 


0570 


10 


0571 


UAl 


..T 


10 


0572 


10 


0573 



REPEAT 1 



WAITS C 



; CONVERT SOFT DISK ADR IN DSK-SDA TO HDWR ADR IN DSK-HDA AND AR 
i DESTROYS DSK-SDA AND MOST EVERYTHING ELSE 

CVDSK: DCCONST H0MPAG3 R0TC9. 3 DESTCQ3 LONG * 

DCCONST HOMHW33 ALUCD+QJ DESTCMA3 LONG * 
^LOAD MA WITH LOG OF 

< NTKUN*NSURFS*NSECS >, , < NSURFS*NSECS > 

DF/WT DCMEM3 R0TC18. 3 MASKC18. 3 DESTCAR3 PUSHJCDSKDIV3 L 

;READ LH, DO DSK-SDA / AR = > AR, DSK-SDA 
mmi R0TC8. + 8. + 13.3 DESTCDSK-HDA3 LONG * 

; WRITE PACK TO DSK-HDA POSITIONED 
DCCONST H0MPAG3 R0TC9. 3 DESTCQ3 LONG * 
DCCONST HOMHW33 ALUCD+Q3 DESTCMA3 LONG * 

i LOAD MA WITH LOC OF 

< NTKUN*NSURFS*NSECS >, , < NSURFS*NSECS > 

DF/WT DCMEM3 MASKC18. 3 DESTCAR3 PUSHJCDSKDIV3 LONG * 
iREAD RH, DO DSK-SDA / AR == > AR, DSK-SDA 

DC DSK-HDA 3 DESTCQ3 LONG * 

DCAR3 ROTCS, +8.3 ALUCD0RQ3 DESTCDSK-HDA3 LONG * 
j lOR IN CYL FIELD TO HDWR DA 

DCCONST H0MPAG3 R0TC9. 3 DESTCQ3 LONG * 

DCCONST HOMHW23 ALUCD+Q3 DESTCMA3 LONG * 

; LOAD MA WITH LOC OF < NSECS >, , < NWSEC > 

DF/WT DCMEM3 R0TC18. 3 MASKC18. 3 DESTCAR3 PUSHJCDSKDIV3 L 

i READ LH, DO DSK-SDA / AR = > AR, DSK-SDA 
DC DSK-HDA 3 DESTCQ3 LONG * 
DCAR3 R0TC8. 3 ALUCD0RQ3 DESTCQ3 LONG * 

i lOR IN SURF FIELD TO HDWR DA 
DC DSK-SDA 3 ALUCD0RQ3 DESTCAR3 LONG * 

i lOR IN SECTOR FIELD TO HDWR DA 
DCAR3 DESTC DSK-HDA 3 LONG POP J * 

iPUT IN DSK-HDA AND POPJ 



iDO DSK-SDA / AR => AR, DSK-SDA (AR/ QUOTIENT, DSK-SDA/ RMDR) 

DSKDIV: DCAR3 C0NDCZER03 JUMPCXUB00T3 LONG * 

; CATCH NO DIVIDE CASE 
DC DSK-SDA 3 MASK C 20. 3 DESTCQ3 LONG % 

iLO DIVIDEND NEVER BIGGER THAN DISK ADR MAX, GET 

ALUC03 DESTCIR-ALL3 LONG $ 

iUSE AC WHEN REFERRING TO AC VIA ACSELCAC3 DEF 

ALUC03 DESTC AC 3 JUMPCDSKDV03 LONG * 
; CLEAR HI DIVIDEND 



10 0574 
10 0575 
10 0576 
10 0577 

10 0578 
10 0579 
10 0580 
10 0581 
10 0582 
10 0583 
+23 LONG 
10 0583 
10 0584 
+ 13 LONG 
10 0584 
10 0585 
10 0586 
10 0587 
10 0588 
10 0589 

UDYU 

"I 
J 

10 0590 
Qo^i 
10 0592 
10 0593 
10 0594 
10 0595 
10 0596 
10 0597 
10 0598 
10 0599 
10 0600 
10 0601 
10 0602 



i DO AC, Q / AR 

.EVEN 

J COPIED SOMEWHAT FROM F4INST 

DSKDVO: 

.REPEAT 36. C 

DCAR3 ALUCAC~D3 bESTtD63 MASKC733 CONDCSIGNON]! LBJUMPC. 



* 



* 



DSKDVl 



DCAR3 ALUCAC4.D3 DESTCD63 MASKC733 C0NDCSIGN0N3 LBJUMPC. 



3 i REPEAT 36 

DCAR3 ALUI:AC-D3 DESTI:D63 MASKC733 JUMP C DSKD V 1 3 LONG * 

DCAR3 ALUnAC4-D3 DESTCD63 MASKC733 LONG * 

ALUCSH-AC3 DESTCD53 MASKC03 LONG $ 

DCCONST 13 R0TC35. 3 ALUCD#AC3 DESTCDSK-SDA3 CONDCSIGNOFF 



JUMPCDSKDV23 LONG * 

i ADJUST REM SIGN, CHECK IT, PUT IT IN DSK-SDA 
DEAR 3 ALUCD+AC3 DEST C DSK-SDA 3 LONG * 

i ADJUST REM. , PUT IT IN DSK-SDA 
DSKDV2: ALUCQ3 DESTCAR3 LONG POP J * 

iGET QUOTIENT IN AR 
/ AR/ QUOTIENT, DSK-SDA/ RMDR 



li .REPEAT 1 



WAITS 



SLOE 



Aug 1 



986 18:08:05 file DSK; F4UB0T. NEW — 



of 



XBOOT 



U 

u 
u 
11 
11 
11 
11 
11 
11 
11 



0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0612 
RTN IS 
11 0612 
11 0613 
11 0614 
11 0615 
TS). 
11 0616 
3 $ 

11 0617 
0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 
0626 



11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

11 

NO 

11 

11 

U 
$ 

11 0634 

K IN AR 

11 0635 
0636 
0637 
0638 
0639 
0640 
0641 
0642 
0643 
0644 
0645 
0646 



0627 
0628 
0629 
0630 

0631 
0632 
0633 



11 
11 
11 
11 
11 
11 
1 1 
11 
11 
11 
11 



I X uo*t/ 



.REPEAT 1 - WAITS C 

; ACCEPTS 10 IN DEVADR 

; ACCEPTS HARD DA IN DSK-HDA 

i ACCEPTS MEM IN DSK-MEM 

RDSK: ALUE03 DESTCDSK-RTY3 LONG * 

; RESET RETRY COUNTER, CLEAR RECAL'ING BIT 0. ERR 

RDSKEO 
RDSKl: ALUCOl DESTCI0D3 SPECC I0B-0UT3 LONG * 

; THIS IS TOP OF RETRY LOOP 
;SET DSK CTRL COMMAND REGISTER TO (DISABLES IN 

MAPFC43 DCCONST 23 DESTCI0D3 SPECC I0B~0UT3 CYLENC lOB-OUT 

;LE C23 CLR CTRLR 
MAPFC73 DCDSK-RTY3 DESTCQ3 CYLENC I0B~0UT3 $ 
DCMASK 4. 3 R0TC30. 3 ALUCD&Q3 DESTCDSK~RTY3 LONG * 

i CLEAR ALL BUT RETRY COUNTER 
START-OUT DCDSK-HDA3 DESTCIOD Q3 LONG * 

i LA CDA3 deselect <B7 off in legal disk adr) 
MAPFC63 LONG * 
START-OUT DlCONST 13 R0TC2S, 3 ALUCD0RQ3 DE3TLIOD3 NORM * 

; LA C1B7IDA3 select and load DA 
MAPFC63 SPECC I0B-IN3 CYLENC I OB -OUT 3 * 

DCI0D3 MAPFC03 DESTCQ AR3 CYLENC I0B-IN3 $ 

; RC INTO Q AND AR 
DCCONST 53 R0TC33. 3 ALUCD&cQ3 C0NDC-ZER03 JUMPCRDSKE03 LO 

; HANDLE ERROR IF S. NRDY ! S. SERR ON IN LH 
DCCONST 43 R0TC15. 3 DESTCQ3 LONG $ 
DCCONST 43 R0TC9. 3 ALUCD0RQ3 DESTCAR3 PUSHJCRDSKG03 LONG 

iSEND 404000 CLEAR FAULT COMMAND, GET STATUS BAC 

DCDSK-MEM3 DESTCI0D3 SPECC I0B-0UT3 LONG * 

;LM CMEM ADR 3 LOAD MA 
MAPFC53 SPECCI0B-IN3 CYLENC I OB-OUT 3 * 

iRC INTO AR 
DCI0D3 MAPFC03 DESTCAR3 CYLENC I0B-IN3 * 
DCAR3 R0TC2. 3 C0NDCSIGN0N3 JUMPCRDSKE03 LONG * 

; HANDLE ERROR IF S. NRDY ON 
DCAR3 R0TC2S. 3 C0NDCSIGN0N3 JUMPCRDSKE03 LONG * 

; HANDLE ERROR IF S. ANY ON 
DCDSK-RTY3 DESTCQ3 LONG * 
DCCONST 13 R0TC34. 3 ALUCD0RQ3 DESTCDSK-RTY3 LONG * 

; SAY WE WANT RDSKEl ROUTINE ON ERROR IN RDSKGO 
ALUC03 DESTCAR3 PUSHJC RDSKGO 3 LONG * 



11 

11 
11 
11 
11 
ii 
11 
11 
11 



0648 
0649 
0650 
0651 
0652 
0653 
0654 
0655 
0656 



;LC C03 CMDCREAD3 
DCAR] R0TC13. 3 C0NDCSI0N0N3 JUMPCRDSKE03 LONG * 

;HANG IF S. IPE ON 
DCAR3 R0TC28. 3 CONDCBIONONl JUMPCRDSKE03 LONG * 

;HANG IF S. ANY ON 
POPJ LONG $ 



3.i , REPEAT 1 



WAITS 



SLOE 



Aug IS. 1986 18:03.06 file DSK: F4UB0T. NEW 



of 



XBOOT 



12 0657 
12 0658 
12 0659 
12 0660 
12 0661 
12 0662 
12 0663 
12 0664 
12 0665 
12 0666 
12 0667 
12 0668 
12 0669 
12 0670 
12 0671 
12 0672 
12 0673 
12 0674 
12 0675 
12 0676 
12 0677 
12 0678 

in: $ 

12 0679 

12 0660 

12 0681 

12 06S2 

12 0683 

12 0684 

12 0685 

12 0686 
1 r) r.AQT 

G $ 

12 0688 
12 0689 
12 0690 
12 0691 
12 0692 
STATUS 
12 0692 
12 0693 
12 0694 
12 0695 



REPEAT 1 



WAITS C 



ACCEPTS CMD IN AR (STORES IT IN DSK-LCM TOO) 
RETURNS RC IN AR FOR SUCCESS 

RESYNCS STACK AND JUMPS TO RDSKEO OR RDSKEl ON TIMEOUT FAILURE 
;B1 OF DSK-RTY DETERMINES WHICH ERROR ROUTINE JUMPED TO 

RDSKGO: DCDSK~RTY3 DESTCQ3 LONG $ 

DCMASK 6. 3 R0TC30. 1 ALUCD&Q3 DESTCDSK-RTY3 LONG $ 

i RESET TIMER PART OF DSK-RTY 
DCCONST 23 DESTCI0D3 SPECC I0B~0UT3 LONG * 

i LE C23 CLR CTRLR 
MAPFC73 DCAR3 DESTCIODj SPECE I0B~0UT3 CYLENCI0B-0UT3 * 

i LC AR LOAD COMMAND 
MAPFC43 DCAR3 DESTC DSK-LCM 3 CYLENC I0B-0UT3 * 

i SAVE LAST CMD IN AMEM 
DCCONST 13 DESTCI0D3 SPECC I0B-0UT3 LONG * 

jLE CI 3 START CTRLR 
RDSKGl: MAPFC73 SPECC I0B-IN3 CYLENC I OB -OUT 3 * 

DCI0D3 MAPFC03 ROTC31.3 DESTCAR3 C0NDCSIGN0N3 CYLENCIOB- 

iREAD RC, JUMP IF S. NACT ON 
DCDSK-RTY3 DESTCQ3 LONG JUMPLCCRDSKG23 * 
ALUCQ+13 DESTCDSK-RTY3 LONG * 

; BUMP TIMER 
DCDSK-RTY3 R0TC6. 3 C0NDCSIGN0FF3 JUMPCRDSKG13 LONG * 

iLOOP TIL COUNT CARRIES INTO BIT 6 <LOTSA TIME) 
DCAR3 R0TC5. 3 DESTCAR3 LONG* 

; ROTATE AR BACK TO ORIGINAL CONFIGURATION 
DCDSK-RTY3 R0TC1.3 C0NDCSIGN0FF3 MU-POP JUMPCRDSKE03 LON 

iPOP STACK, JUMP TO APPROPRIATE ERROR ROUTINE 
MU~POP JUMPCRDSKEi3 LONG * 

RDSKG2: DCAR3 R0TC5. 3 DESTCAR3 POPJ LONG * 

; ROTATE AR ALL THE WAY AROUND TO RERUN ORIGINAL 



BITS 
3; .REPEAT 1 



WAITS 



SLOE 



Aug 



1986 18:08:07 file DSK: F4UB0T. NEW — 



of — XBOOT 



13 0696 
13 0697 
13 0698 
13 0699 
13 0700 
13 0701 
13 0702 
13 0703 
13 0704 
13 0705 
13 0706 
13 0707 
13 0708 
13 0709 
13 0710 
13 0711 
13 0712 
13 0713 
13 0714 
T ERR) 
13 0715 

1 'S A"? 1 A 

13 0717 
OUT 

13 0718 
0719 
0720 
0721 
0722 
0723 
0724 



13 
13 
13 
13 
13 
13 



13 
13 
13 
13 
13 
13 
$ 
13 
13 
13 
13 
13 

J, v./ 

13 
13 
13 
D 



0726 
0727 
0728 
0729 
0730 
0731 

0732 
0733 
0734 
0735 
0736 

0738 
0739 
0740 
RETRY 
13 0741 
13 0742 
13 0743 



.REPEAT 1 
.REPEAT 1 



WAITS C 
RCVERR C 



} GET HANGS WHEN NOT ASSEMBLING ERROR RECOVERY ROUTINES 

RDSKEO: JUMPCXUB00T3 LONG * 
RDSKEl: JUMPCXUB00T3 LONG $ 



3; .REPEAT 1 



RCVERR 



; OPTIONAL DISK ERROR RECOVERY ROUTINES 

.REPEAT RCVERR C 

;GET TO RDSKEO IF OBI IN DSK-RTY (INSISTS SEEK ERR WITHOUT SELEC 

;GET TO RDSKEl IF IBl IN DSK-RTY 

; ACCEPTS STATUS IN AR 

iRECALS AND JUMPS TO RDSKl TO RESTART IF ERROR COUNT DID NOT RUN 



RDSKEO: DCAR3 



LONG * 



DnAR3 



LONG * 



* 



C0NDCSIGN0N3 JUMPCXUB00T3 

; HANG ON S. SERR 
R0TC4. 3 C0NDCSIGN0FF3 JUMPCXUB00T3 
iHANG IF NOT S. SKER 
RDSKEl: DCDSK--RTY3 DESTCQ3 LONG * 

DCCONST 13 R0Ti:34. 3 ALUC-D&Q3 DESTCDSK~RTY3 LONG 
; CLEAR FLAG TO GET RDSKEO ERROR RTN NEXT 
DI[DSK-RTY3 DESTCQ3 C0NDCSIGN0N3 JUMPCXUB00T3 LONG 
J HANG IF WE ARE HERE WHILE RECALLING 
13 R0TC35. 3 ALUCD0RQ3 DESTCDSK-RTY3 LONG * 
iTURN ON RECALLING BIT 
143 R0TC15. 3 DESTCQ3 LONG * 
43 R0TC9. 3 ALUCD0RQ3 DESTCAR3 PUSHJI:RDSKG03 



$ 



DCCONST 



DCCONST 
DCCONST 



LONG 



iSEND RECAL CMD 1404000, GET STATUS IN AR 
DCAR3 R0TC28. 3 C0NDCSIGN0N3 JUMPCXUB00T3 LONG * 

iHANG IF S.ANY DURING RECAL 
DCDSK-RTY3 R0TC6. 3 ALUCD+13 DESTCAR3 LONG * 

} BUMP RETRY COUNT 
DCAR3 R0TC32. 3 C0NDCSIGN0N3 JUMPCXUB00T3 LONG * 

iHANG IF CARRIED INTO BIT 2 (RETRY 8 TIMES) 
DCAR3 R0TC30. 3 DESTCDSK-RTY3 JUMPCRDSK13 LONG * 

; WRITE UPDATED COUNTER AND FRIENDS TO DSK-RTY AN 



3; .REPEAT RCVERR 



13 0744 3.i. REPEAT i - WAITS 

13 0745 



SLOE 



Aug 18, 1986 18:08:07 file DSK: F4UB0T. NEW — of — XBOOT 



14 0746 

14 0747 

14 074S 

14 0749 

T 

14 0750 

14 0751 17364 01073017000006055416162366351416000 

14 0752 17365 01064100000000001402162025551456000 

14 0753 

14 0754 17366 01063117000006055402116365551416000 
14 0755 

14 0756 17367 01024117003106055416152365411416000 

14 0757 

1 4 0758 1 7370 1 073 1 1 702000000 14161 622254 1 1 456000 

14 0759 

14 0760 17371 01073117043106054220352365551416000 
3 C-OUT * 
1 4 0760 
14 0761 

14 0762 17372 01024017023006055416162365411416000 

14 0763 

14 0764 17373 01077137040006055416162365711416000 

14 0765 17374 01073100600036762316162025411456000 

14 0766 

14 0767 

14 0768 

14 0769 

14 0770 

14 0771 

14 0772 17375 01073100400036127076162026351456000 
14 0773 

14 0774 17376 71073117000000001200162365511416000 
14 0775 

14 0776 17377 61024117000006055416146365411416000 
14 0777 

14 0778 17400 01073117000000001416162225411456000 
14 0779 

14 0780 17401 01073117000000001416162225411456000 
14 0781 

14 0782 17402 01077117023006055416150365711416000 
14 0783 
14 0784 

14 0785 17403 00073117010500001402150025451556000 
550 * 

14 0786 
14 0787 
14 0786 
14 0789 
14 0790 
14 0791 

14 0792 17404 71170117000000001416162225651456000 
14 0793 



ENTER WITH # OF FILES TO SKIP IN TAP-FLN 

READ A RECORD STARTING AT DATA PAGE AND SETUP # BYTES IN GBL-BC 



TAP 10: DC TAP -ST A 3 DESTCQ3 LONG * 

DCCONST 103 ALUCD&tQ3 C0NDC-ZER03 JUMPCTPNEWR3 LONG * 

iJUMP IF NOT 1ST TIME CALLING THIS 
DCCONST 103 ALUCD0RQ3 DESTCTAP--STA3 LONG $ 

; INT FLAG SET SAY WE DID THIS 1ST TIME 
ALUC03 DESTCI0D3 START-OUT LONG * 

; Turn off "FORMATTER ENABLE" 
MAPFCTP.WF3 PUSHJCTAPERW3 LONG $ 
i REWIND TAPE 
TAPIOl: MAPFCTP.WM3 START-OUT DCCONST 13 R0TC35. - 26.3 DESTCIOD 



i ENABLE THE FORMATTER. 
MAPFCTP.WF3 START-IN ALUC03 DESTCQ3 LONG * 

;READ STATUS BITS. 
MAPFCTP.RS3 DCI0D3 ALUCN0TD3 DESTCAR3 LONG * 
DCAR3 R0TC12. 3 -OBUS< JUMPCTAPI013 LONG * 

iWait until tape is at load point. 

;TPNEWR: START NEW RECORD 
i TPNEWF: START NEW FILE 



TPNEWR: 
TPNEWF: 



DCTAP-STA3 R0TC35. 3 C0NDCSI0N0N3 JUMPCXUB00T3 LONG * 

i IF SAW EOF OF FILE OF INTEREST. LOSE 
DCLIT DATPAG * 10003 DESTCMA3 LONG * 

; INIT MA TO START OF DATA PAGE 
ALUC03 DESTCPC3 LONG $ 

i COUNT # BYTES IN PC 
PUSHJCKNYRG03 LONG * 

; start read. 
PUSHJCKNYWAIT3 NORM * 

;Wait for first byte. 
START-IN MAPFCTP.RC3 DCI0D3 ALUCN0TD3 DESTCH0LD3 C800 * 

J Read 1st byte of new record. 

i BUMP BYTE COUNTER 
PC~INC MAPFC13 DCMEM3 MASKC8. 3 DESTCH0LD3 JUMPCBYTLPA3 C 

/MAPFCi3 clears byte ready 

/Extract data byte from other status information 

CENTER BYTE READ LOOP 



iAll DCMEM3's here reading from HOLD. 

BYTLP: DCMA3 ALUCD+13 DESTCMA3 PUSHUCTAPAGN3 NORM * 

i BUMP MA, GET 1ST BYTE 



14 0794 
14 0795 
14 0796 
14 0797 
14 0798 
14 0799 
14 0800 
14 0801 
14 0802 
14 0803 
14 0804 
14 0805 
14 0806 
14 0807 
14 0808 
1 4 0809 
14 0810 
14 0811 
1 4 OS 1 2 
b lems 
14 0S13 
14 0814 
14 0815 
14 0816 
1 4 ua i / 
14 0918 
14 0819 
14 0820 
14 0821 
ROCESS. 
14 0822 
A IN 

14 0822 
14 0823 
NO $ 
14 0824 
14 0825 
14 0S26 
14 0827 
14 0828 
14 0829 
14 0830 

loop ) 
14 0831 
have 
14 0832 
14 0833 
14 0834 
14 0835 
14 0836 
14 0837 
14 0838 
14 0S39 
14 0840 



i 7405 i 0730 i 70000000007 161 6222t?45 1 556000 

17406 01063017000000000516162225451556000 

i 7407 i 0630 1 70000000003 1 6 1 6222545 1 556000 

17410 01063117000037010116156025451556000 



17411 01073U7001006054027200365551417000 

17412 01073117003006055416162365411416000 

17413 0107310702000000141615002571 1456000 



17414 01073117003000001416162225411456000 

1 74 1 5 1 073 1 00600036 1 270 161 6202545 1 556000 
1 74 1 6 1. 073 1 0040000000 1 036 1 6202545 1 556000 
17417 0107300020000000141616202631 1456000 



1 7420 0116111 70003367734003 1 402555 1 456000 



*. J ;*«.*. w * «f -■ t.- ^ W %-* =— '-,' -.^■\^ Umi- ^ '-4 *.« ii-f W# ^'^ 'iw.i? ,4. W *«. -'-^ lii. W " T W A. V>f ' W %«/ W W" \^ 



i 7422 1 077 1 1 70230060554 161 503657 1141 6000 



17423 00073117010506055402150425451516000 



BYTLPA: DCMEM3 R0TC343 DESTCQ3 PUSHJCTAPAGN3 NORM * 

i ENTER 1ST BYTE. GET 2ND BYTE 
DCMEMl R0TC243 ALUCDORQ] DESTCQ3 PUSHJCTAPAGN3 NORM * 

; ENTER 2ND BYTE, GET 3RD BYTE 
DCMEM3 ROTC143 ALUCDORQ^ DESTCQ3 PUSHJCTAPAGN3 NORM * 

I ENTER 3RD BYTE, GET 4TH BYTE 
DCMEM3 ROTC43 ALUCDORQD DESTCMEMSTO^ JUMPCBYTLP3 NORM $ 

i ENTER 4TH BYTE, IGNORE BITS 32:35 OF MEM WORD 

; GET NEXT BYTE AS TAPE FLYS BY 

TAPAGN: DCCONST 353 ROTCLLOAD-ROT + 13 DESTCLL0AD3 NORM $ 

; Set loop counter to do timeout 

; (TIMEOUT ABOUT 78 USEC) 
START-IN NORM * 

iAsk tape for a byte and status thereof 
TPWTBl: MAPFCTP.RC3 DCI0D3 DESTCH0LD3 C800 LOOPCTPWTB23 * 

J Read byte and status. Byte comes complemented. 

i Result is put in HOLD to avoid synchronizer pro 

i Do timeout check and branch if still waiting 
START-IN PUSHJCFMNBWT3 LONG * 

iWait for FORMATTER IDLE SO CAN DETECT EOF TOO. 
DCMEM3 ROT 1132. 3 -OBUS< O JUMPCXUB00T3 LONG * 

; Check for error status. DIE IF ERROR 
DrMEM3 ROT [[33, 3 OBUS< JUMPCTAPE0R3 LONG * 

; If end-of-file not seen, ASSUME END~OF-RECORD. 
DCTAP-FLN3 DESTCQ3 C0NDCZER03 JUMPCTAPE0F3 LONG * 

i IF HIT EOF AND THIS IS FILE OF INTEREST, THEN P 

J ENDING CONDITION SHOULD BE TRMADR DETECTED IN M 

STUFF. 

MU~POP DCCONST 13 ALUCQ~D3 DESTCTAP-FLN3 JUMPCTPNEWF3 LO 

i RESYNC STACK 

i DECREMENT # FILES TO SKIP, DO NEXT FILE 

i PART OF BYTE READY LOOP 

TPWTB2: START-IN DCMEM3 R0TC26. 3 -OBUS< C550 JUMPCTPWTBn $ 

iCheck for byte ready (this is a two instruction 

; Start getting byte and status again in case we 

; to loop 
START-IN MAPFCTP.RC3 DCI0D3 ALUCN0TD3 DESTCH0LD3 C800 * 

J READ THE DATA AGAIN (NOW THAT IT'S STABLE !) 

; BUMP BYTE COUNTER 
PC-INC MAPFC13 DCMEM3 MASKCS. 3 DESTE:H0LD3 C550 POPJ $ 

jMAPFI:13 clears byte ready 

; Extract data byte from other status information 

;HERE when HIT EOR 



14 0841 

14 0842 

14 0843 17424 01073117000306055416132365611416000 

14 0845 

14 0846 17425 01073100200006055416162426311416000 

14 0847 

14 0848 17426 01073117000036773416162025411456000 

14 0849 

14 0850 

14 0851 

14 0852 

14 0853 

14 0854 17427 01073017000006055416162366351416000 

14 085 5 

14 0856 17430 01063117000006055400316365551416000 

14 0B57 

14 0858 



i SET BYTE COUNT AND RETURN. RECORD IN DATA PAQE 

TAPEOR: MU-POP DCPC3 DESTCGBL-BCT3 LONG * 

iRESYNC STACK 
; STORE BYTE COUNT IN AMEM 
DCTAP~FLN3 C0NDCZER03 POPJ LONG* 
iRET IF FILE OF INTEREST 
JUMPCTPNEWR3 LONG* 

; IGNORE REC IF NOT OF INTEREST 

iHERE WHEN HIT EOF FOR FILE OF INTEREST. 

;SET FLAG REMEMBERING IT INCASE TURKEY TRIES TO READ PAST IT 

TAPEOF: DCTAP~STA3 DESTCQ3 LONG * 

; GET FLAGS 
DCCONST n ALUCD0RQ3 DESTCTAP--STA3 LONG * 

; REMEMBER HIT EOF OF FILE OF INTERST. 
i NOW TREAT AS NORMAL EOR 
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14 085^? 17431 01073117000306055416132365611416000 MU-POP DCPC3 DESTCGBL-BCT3 LONG* 

14 0860 ; STORE BTYE COUNT 

14 0861 17432 01073117000006055416162425411416000 POPJ LONG* 

14 0B62 ; re; J 

14 0863 



DS;0«5 file DSK- F4UI30T. NEW — 



of 



X1300T 



15 0864 
15 0865 
15 0866 
15 0867 
15 0868 17433 01073117000006055405150365551416000 

15 0869 

"j- s 

15 0870 17434 01073117003106055416162365411416000 

15 0871 

15 0872 17435 01073017050000001416162225451556000 

15 0873 

15 0874 17436 01073117003106054220352365551416000 

15 0875 

15 0876 17437 01073117020006055416162425411416000 

15 0877 

15 0878 

15 0879 

15 0880 

15 0881 17440 01073117003106055416162365411416000 

15 0882 17441 01073117051006054002000365551417000 

$ 

1 5 0883 

15 0884 17442 010241 170031 060554 161 523654U416000 

15 0885 

15 0886 17443 01073117033106054543152364711416000 

1. w" wOC3w 

15 0887 

this 
15 0887 
15 0888 
UNT this 



; REWIND TAPE 

TAPERW: DCCONST 243 DEBTCH0LD3 LONG * 

;RWD AND GO BITS — • KNYGOA WILL DELETE THE GO BI 

START-OUT LONG « 

i Give TP MR to clear modei error status 
MAPFCTP.MR3 DCMEM] DESTCQ3 C-OUT PUSHJCKNYG0A3 * 

; Put command bits in Q and start formatter. 
START-OUT DCCONST 13 R0TC35. - 26.3 DESTCI0D3 LONG * 

J Clear all command bits except FORMATTER ENABLE. 
MAPFCTP.WF3 LONG POPJ * 



} INITIALIZE DATA CHANNEL 

DC INI T: START-OUT LONG * 

MAPFCTP.MR3 DCCONST 8.3 R0TCLL0AD-R0T3 DESTCLL0AD3 LONG 

J Give TP MR 
START-OUT ALUC03 DESTCI0D3 LONG * 

; Load into cntma (the COUNT and MA registers) 
MAPFCTP.WMA3 START-OUT DCMASK 12.3 R0TC35. - 13.3 DESTCI 



* 



ui II 



i Load cntma again — since COUNT is currently 0. 
i force BUF CNT to be 0. But. uie put -1 into CO 



15 0888 
15 0889 

; time, which, with BUF CNT = 0, will make BUF CNT load 

15 0890 

15 0891 17444 01073117033106055400552365551416000 

15 0892 

15 0893 17445 01073107010037113416162025411456000 

15 0894 

15 0895 17446 01024117003106055416152365411416000 

15 0896 
15 0898 
15 0900 



; properly when STARTDC loads cntma- 
MAPFCTP.WMA3 START-OUT DCCONST 23 DESTCI0D3 LONG * 

;Set MBUSY 
MAPFCTP.WC3 C550 LOOP C. 3 % 

;Wait for a few usee. This clears mem rq.. 
START-OUT ALUC03 DESTCI0D3 LONG * 

iClr MBUSY 
iv.^^,pirrTp. WC3 ALUr03 DESTCTAP-LWT3 POPJ LONG * 

i Zero out copy of TP. WC contents- 
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16 0901 

16 0902 

16 0903 

16 0904 

16 0905 17450 01073117003006055416162365411416000 

16 0906 17451 01073137013006054317762365551416000 

16 0907 

16 0908 17452 01073117020006055416150365711416000 

16 0909 17453 01073100403006054656162425451516000 

16 0910 

16 0911 

16 0912 17454 01072120003037125416162025411456000 

1 * 

16 0913 

16 0914 17455 01073117000036127416162025411456000 

16 0915 

16 0916 

16 0917 

16 0918 

16 0919 

16 0920 17456 01073117000037101416162225411456000 

16 0921 



16 09: 



17457 01 073 1 370000060540203623660 1141 6000 



16 0923 

16 0924 17460 01073117003106054156152365411416000 

16 0925 

16 0926 17461 01073017040000001400162025551456000 

16 0927 

16 0928 

16 0929 

16 0930 

bits 
16 0931 
16 0932 

16 0933 17462 01073117003106054220352365551416000 
16 0934 

16 0935 17463 01063017020000000220362225551456000 
16 0935 
16 0936 
16 0937 

16 0938 17464 01066117003106054040352365551416000 
-OUT * 
16 0939 
h s» hit ^ i 

16 0939 

16 0940 17465 01065117023106054040352365551416000 

1 

16 0940 

16 0941 

16 0942 17466 010731 l-v;^:-0':?i?05t:^41616242541 1416000 

ta 0943 

16 0944 



J Wait for first byte of read data (BOOTSTRAP mode only) 

KNYWAIT: START- IN LONG $ 

MAPFCn START-IN DCCONST 773 R0TC12. 3 DESTCAR3 LONG * 
; Clear read data ready flag 
KNYWl: MAPFCTP,RC3 DCI0D3 DESTCH0LD3 C600 * 

START-IN DCMEM3 R0TC26. 3 OBUS< POPJ C550 * 
i Return if READ DATA RDY is now on. 
i START READ OF BYTE 
START-IN DCAR3 ALUCD-13 DESTCAR3 C550 -OBUS=0 JUMPCKNYWl 

; START READ OF STATUS, LOOP TILL TIME OUT 
JUMPCXUB00T3 LONG * 

i TIMEOUT FOR 1ST BYTE, DIE 



i KNYRGO — Called to start tape motion on reads. 

KNYRGO: PUSHJCDCINIT3 LONG * 

} Init the data channel. 
DCTAP-DPM3 ROTE 13 MASKC13 DESTCAR3 LONG * 

i Get the 32-bit mode flag. 
START-OUT DCAR3 R0TC35. - 29.3 DESTCI0D3 LONG * 

/Position it for the hardware. 
MAPFCTP.WM3 DCCONST 03 DESTCQ3 C-OUT UUMPCKNYG0A3 * 

; Send command to f ormatter- 



i Send a tape-motion command to the formatter. Call with command 

; (except for FMTR ENABLE and GO) in Q. Clobbers Q, HOLD. AR 

KNYGOA: START-OUT DCCONST 13 R0TC35. - 26.3 DESTCI0D3 LONG * 

iSend the FORMATTER ENABLE bit. 
MAPFCTP.WF3 DCCONST 13 R0TC35. - 26.3 ALUCD0RQ3 DESTCQ3 
PUSHJCFMNBWT3 LONG * 

iAdd the FMTR ENBL bit to the command word. 
iWait for FORMATTER NOT BUSY. 
START-OUT DCCONST 13 R0TC35. - 33.3 ALUCD#Q3 DESTCI0D3 C 

; Set the GO bit to fmtr (except: on RWD, CLEAR t 

MAPFCTP.WF3 START-OUT DCCONST 13 R0TC35. - 33.3 ALUC-D&Q 

DESTCI0D3 LONG * 

J Send command word again, without GO bit. 
MAPFCTP.WF3 LONG POPJ * 



16 0945 



SLOE 



Alh 
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17 0946 




17 0947 




17 0948 




17 0949 




17 0950 




17 0951 




17 0952 


17467 


17 0953 


17470 


17 0954 




17 0955 


17471 


17 0956 


17472 


17 0957 


17473 


17 0958 




c delay. 





01073137003006054340362365551416000 
01073117040006055416150365711416000 

1 0721 2040000000 14161 620254 1 1 456000 
01073117001006054003400365551417000 
01073107000037167416162025411456000 



iWait for formatter to be not busy- 

; Return tape status in MEM; timeout in 164 msec. 

; Duration of loop should be 10 usee, (for TRCHECK). 

FMNBWT: START-IN DCCONST 13 ROTC14-3 DESTCAR3 LONG * 
FMNBWl: MAPFCTP.RS3 DCI0D3 DESTCH0LD3 C800 * 

;GET STATUS BITS. 
DCAR3 ALUCD-13 DESTCAR3 C550 OBUS< JUMPCFMTHNG3 * 
DCCONST 14. 3 R0TCLL0AD-R0T3 DESTCLL0AD3 C600 * 
C500 LOOPC. 3 * 

i We execute this instr. 15. timesi for a 7. 5 use 



17 0958 

17 0959 17474 01073100603037160176162025451556000 
START-IN DCMEMj ROTr73 C550 -OBUS< JUMPCFMNBW13 * 
17 0960 

17 0961 17475 01073117000006055416102425411416000 

17 0962 

17 0963 

17 0964 

17 0965 17476 01024117003106055416152365411416000 

17 0966 

17 0967 17477 01073117020036127416162025411456000 

17 0966 

17 0969 

17 0970 



i check for 'BUSY' 
DCAR3 DESTI:TAP-TIM3 LONG POP J * 

; Save ending timeout count (for TRCHECK) 



FHTHNG: START-OUT ALUC03 DESTCI0D3 LONG * 

;Turn off "FORMATTER ENABLE" 
MAPFCTP.WF3 JUMPCXUB00T3 LONG * 
} ABORT. FMTR HUNG 



JLOE 
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18 0971 














18 0972 
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labels 

















38 





• 


14 


792 


17404 


BYTLP 




617 


17357 


CORCLR 


15 


881 


17440 


DCINIT 




1 


17124 


DSKBT-BEO 




380 


17213 


DSKBTO 




406 


17230 


DSKBT3 




413 


17233 


DSKBT4 




345 


17170 


DSKCBl 




345 


17174 


DSKCB3 




598 


17346 


DSKCVl 




602 


17350 


DSKCV2 




229 


1 7 1 34 


DSKMB 1 




93 


17127 


DSKMB2 




260 


17151 


DSKMB5 




86 


17124 


DSKMBT 




498 


17277 


DSKSR2 




515 


17307 


DSKSR3 


17 


952 


17467 


FMNBWT 


17 


965 


17476 


FMTHNG 


7 


400 


17066 


0ET3BY 


7 


414 


17074 


GET4BY 


8 


434 


17102 


ILDB 


5 


293 


17016 


IMGDUN 


8 


468 


17117 


lOTAP 


16 


933 


17462 


KNYGOA 


16 


905 


17450 


KNYWA I T 





38 


O^NAF 


1 


448 


17255 


SRCCCL 


1 


480 


17265 


SRCDMP 


1 


486 


17271 


SRCMFIm 


1 


448 


17253 


SRCUCD 


1 


463 


17257 


SWA ITS 


14 


805 


17411 


TAP AON 


15 


868 


17433 


TAPERW 


14 


751 


17364 


TAP ID 


14 


771 


17375 


TPNEWR 


14 


810 


17413 


TPWTBl 


1 


345 


17162 


UBOOTD 


5 


183 


17006 


UBOOTT 


6 


304 


17020 


UMERQE 


6 


366 


17053 


XUBOOT 
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list-labels 



14 


794 


17405 


BYTLPA 




526 


17313 


DSK-OP 




386 


17216 


DSKBTl 




425 


17241 


DSKBT5 




345 


17202 


DSKCB4 




610 


17355 


dskcv3 




238 


17140 


DSKMB3 




575 


17336 


DSKRC2 




493 


17275 


DSKSRC 


7 


378 


17056 


GETIBY 


5 


170 


17001 


HALTED 


8 


481 


17122 


lOBOTH 


16 


920 


17456 


KNYRGO 


8 


464 


17115 


NEED 10 


1 


438 


17245 


SRCDSP 


1 


448 


17251 


SRCUDG 


14 


854 


17427 


TAPEOF 


14 


760 


17371 


TAP 101 


14 


829 


17421 


TPWTB2 


5 


171 


17002 


UBTAl 





550 


17323 


DSK-WT 




388 


17217 


DSKBT2 




345 


17210 


DSKBTP 




345 


17205 


DSKCB5 




596 


17345 


DSKCVA 




251 


17146 


DSKMB4 




571 


17334 


DSKRCL 


17 


953 


17470 


FMNBWl 


7 


385 


17060 


GET2BY 


8 


455 


17112 


IBP 


8 


473 


17121 


lODSK 


16 


908 


17452 


KNYWl 


6 


354 


17045 


OLD-MMB-FIX 


1 


487 


17272 


SRCMFD 


1 


438 


17242 


SRCXXX 


14 


843 


17424 


TAPEOR 


14 


772 


17375 


TPNEWF 


5 


169 


17000 


UBOOTA 


6 


309 


17020 


ULOADL 
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btorage map 




100 
200 

300 
400 

500 

600 

700 

1000 

1100 
1 200 
1 300 
1400 

1 500 

1600 

2000 

2200 

d. %J U U 
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2400 
2500 
2600 
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3000 
3100 
3200 
3300 
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3600 
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5200 
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11300 
11400 
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